请问各位大侠那个答复有论坛的源代码？最好是中文，英文也无所谓。

人家写的~bbs.aspx
<%@import namespace="system.data.oledb"%>
<%@import namespace="system.data"%>
<%@import namespace="System.Web.HttpRequest"%>
<%@ Page Language="vb" debug="true" %>
<script language="vb" runat="server">
sub page_load(sender as object,e as eventargs)

if session("username")="" then
response.redirect("bbs_login.aspx")
end if
dim username as string=session("username")
dim userhead as string=session("userhead")

dim ds as dataset=new dataset
dim conn as oledbconnection
conn=new oledbconnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&server.mappath("db\bbs.mdb"))
dim mycommand as oledbDataAdapter
dim flage as string="subject"
mycommand=new oledbDataAdapter("select * from content where flage='"+flage+"' order by id desc",conn)
conn.open()
mycommand.fill(ds)
mydatagrid.datasource=new dataview(ds.tables(0))
mydatagrid.databind()
 end sub'======分页显示1==
sub change_page_index(sender as object,e as datagridpagechangedeventargs)
mydatagrid.currentpageindex=e.newpageindex
mydatagrid.databind()
end sub
</script>
 <html>
 <head>
 <style>
a{ 
           font: 8pt verdana;
           color:black}
a:hover{ 
           font: 8pt verdana; 
           color:#999999}
           </style>
 </head>
 <body style="margin-top:0">
<!--#include virtual="head.inc"-->
<div  align=center>
 <form runat=server>
<a href="bbs_addnew.aspx"><img src=image\post.gif border=0></a>
<asp:DataGrid
        ID="mydatagrid"
        runat="server"
        width="770"
        align="center"  
        CellPadding=4
        CellSpacing=0
        AllowPaging=True
        PagerStyle-Mode=NumericPages
        PagerStyle-HorizontalAlign=Right
        PageSize=12
        OnPageIndexChanged="change_page_index"        
        HeaderStyle-BackColor="#94CBFF"
        autogeneratecolumns="False"
        BorderWidth="1"
        style="font-size:9pt"
        BorderColor="black"> 
  <Columns>
   <asp:TemplateColumn
    ItemStyle-HorizontalAlign=Center>
   <ItemTemplate>
   <img src="image\folder.gif">
   </ItemTemplate>
   </asp:TemplateColumn>
   <asp:HyperLinkColumn
datanavigateurlfield="id"
DataNavigateUrlFormatString="bbs_view.aspx?id={0}"
DataTextField="subject"
 HeaderText="主题"
    Target=_blank
    ItemStyle-BackColor=#F7FBFF
    ItemStyle-font-name="verdana"/>
    <asp:boundcolumn
          DataField="subname"
          HeaderText="作者"
          ItemStyle-BackColor=#F7FBFF
          ItemStyle-font-name="verdana"/>
   <asp:boundcolumn
          DataField="subdate"
          HeaderText="发表时间"
          ItemStyle-BackColor=#F7FBFF
          ItemStyle-font-name="verdana"/>
           
  <asp:boundcolumn
          DataField="replynum"
          HeaderText="回复"
          ItemStyle-BackColor=#F7FBFF
          ItemStyle-font-name="verdana"
          ItemStyle-Width=25 />
  <asp:boundcolumn
          DataField="hitnum"
          HeaderText="点击"
          ItemStyle-BackColor=#F7FBFF
          ItemStyle-font-name="verdana"
          ItemStyle-Width=25/>
  </Columns>
</asp:DataGrid>
</form>
</div>
<!--#include virtual="foot.inc"-->
</body>bbs_addNew.aspx
<%@import namespace="system.data.sqlclient"%>
<%@import namespace="system.data.oledb"%>
<%@import namespace="system.data"%>
<%@ Page Language="vb" debug="true" %>
<body>
<!--#include virtual="head.inc"-->
<script language=vb runat=server>
sub Addnew_Subject_Submit(sender as object,e as eventargs)
    '=============上传图片===============================
dim i as integer
dim finfo as string
dim img as string
dim postedfile as httppostedfile=request.files(I)
'================================================
if postedfile.contentlength>0 then
dim filesplit() as string=split(postedfile.filename,"\")
dim filename as string=filesplit(filesplit.length-1)
postedfile.saveas(server.mappath("db")&"\"&filename)
dim imgpath as string ="db\"&filename
img="<img src="+imgpath+" border=0>"
end if
'=======================================提交文本信息==
dim mycommand as OLEDBcommand
    dim conn as OLEDBconnection
dim updatestring as string
dim subjectstr as string=subject.text
dim flage as string="subject"
   dim description as string=text1.text
   dim username as string=session("username")
  dim userhead as string=session("userhead")
   
   '================格式转换======================
    subjectstr=subjectstr.Replace("&","&amp;")
subjectstr=subjectstr.Replace("<","&lt;")
subjectstr =subjectstr.Replace(">","&gt;")
subjectstr =subjectstr.Replace(chr(32),"&nbsp;")
subjectstr =subjectstr.Replace("'","’")
subjectstr=subjectstr.Replace(chr(13),"<br>")
subjectstr=subjectstr.Replace(chr(10),"<br>")

'================格式转换======================
dim contentstr as string=content.text
    contentstr=contentstr.Replace("&","&amp;")
contentstr=contentstr.Replace("<","&lt;")
contentstr =contentstr.Replace(">","&gt;")
contentstr =contentstr.Replace(chr(32),"&nbsp;")
contentstr =contentstr.Replace("'","’")
contentstr=contentstr.Replace(chr(13),"<br>")
contentstr=contentstr.Replace(chr(10),"<br>")
'============
description=description.Replace("&","&amp;")
description=description.Replace("<","&lt;")
description =description.Replace(">","&gt;")
description=description.Replace(chr(32),"&nbsp;")
description=description.Replace("'","’")
description=description.Replace(chr(13),"<br>")


'=====================将转换后的字符串保存到数据库===
if username="" then
username="未知"
end if
updatestring="insert into content (subject,content,subdate,flage,subname,headimg,hitnum,replynum,img,imgdescription)values('"+subjectstr+"','"+contentstr+"',NOW(),'"+flage+"','"+username+"','"+userhead+"',0,0,'"+img+"','"+description+"')"
conn=new OLEDBconnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&server.mappath("db\bbs.mdb"))
    mycommand=new OLEDBcommand(updatestring,conn)
    conn.open()
    mycommand.executenonquery()
   response.redirect("bbs.aspx")
end sub
sub reset_form(sender as object,e as eventargs)
subject.text=""
content.text=""
end sub
</script>
<form enctype="multipart/form-data" runat=server ID="Form1" style="font-size:9pt" >
  文章标题：<asp:textbox ID="SUBJECT" runat="server"  TextMode="SingleLine"  MaxLength=30 size=30/><br>
  文章内容：<ASP:TEXTBOX  ID="content"   runat="server"  textmode="multiline" rows="10" Columns="60"/>
<br>
上传图片：<input type=file id=fileup1 runat=server  SIZE=50 maxlength=50><br>
    图片说明：<asp:textbox id=text1 runat=server textmode=singleline maxlength=30 size=30/><asp:Panel ID="button_panel" runat="server"  HorizontalAlign="left"><br>
  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<asp:button ID="submit" runat="server" OnClick="Addnew_Subject_Submit" Text="发表这篇文章"/>
 
</asp:Panel>
<asp:Label ID="statues" Runat="server"></asp:Label>
<asp:RequiredFieldValidator
 ID="REVPASSWORD"
  ControlToValidate="subject"
   Display=None
    InitialValue=""
     ErrorMessage="文章名必须填写!"
      Runat=server>
       </asp:RequiredFieldValidator>
<asp:RequiredFieldValidator
 ID="Requiredfieldvalidator1"
  ControlToValidate="content"
   Display=None
    InitialValue=""
     ErrorMessage="文章内容必须填写!"
      Runat=server>
       </asp:RequiredFieldValidator>
       <asp:ValidationSummary
  ID="ValidationSummary1"
   Runat=server
       EnableViewState=False
        ShowSummary=False
      HeaderText="文章提交失败，请注意以下规则:"
       ShowMessageBox=True
        Font-Name=verdana
         Font-Size=9pt>
         </asp:ValidationSummary>
</form>
<!--#include virtual="foot.inc"-->
</body>

解决方案 »

  1.   

    bbs_login.aspx
    <%@import namespace="system.data.sqlclient"%>
    <%@import namespace="system.data.oledb"%>
    <%@import namespace="system.data"%>
    <%@ Page Language="vb" debug="true" %>
    <script language=vb runat=server>
    sub page_load(sender as object,e as eventargs)
    end sub
    sub check_user(sender as object,e as eventargs)
     if page.isvalid then
     dim conn as OLEDBconnection
     dim querystring as string
    querystring="select * from userinfo where(username='"+trim(login_name.text)+"' and userpassword='"+trim(login_pass.text)+"')"
    conn=new OLEDBconnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&server.mappath("db\bbs.mdb"))
        dim ds as dataset=new dataset
        dim mycommand as OLEDBDataAdapter=new OLEDBDataAdapter(querystring,conn)
        mycommand.fill(ds)
        mydatagrid.datasource=new dataview(ds.tables(0))
    mydatagrid.databind()
        if mydatagrid.items.count=0 then
          statues.style("color")="red"
          statues.text="登录失败，请检查用户名和密码!"
         conn.close()
         else
       conn.close()
       dim username as string=trim(login_name.text)
       dim userhead as string=ds.tables(0).rows(0).item(3)
       session("username")= username
       session("userhead")= userhead
       response.redirect("bbs.aspx")
       
       end if  
       end if
       end sub
    </script>
    <html>
    <head>
    <meta name="GENERATOR" Content="Microsoft Visual Studio.NET 7.0">
    </head>
    <body>
    <!--#include virtual="head.inc"-->
    <form runat="server">
    <table width=600 align=center bgcolor=#94CBFF style="font-size:9pt;border-collapse: collapse" border=1 bordercolor=black>
    <tr><td bgcolor=#663399 colspan=2>用户登录</td></tr>
    <tr><td>&nbsp;&nbsp;用户名：</td><td><asp:textbox style="border:1px solid black" ID="login_name" MaxLength="20"  runat="server"  TextMode="SingleLine"  /></td></tr>
    <tr><td>&nbsp;&nbsp;登录密码：</td><td><asp:textbox style="border:1px solid black" ID="login_pass" MaxLength="6"  runat="server" TextMode="password"/></td></tr>
    <tr align=center><td colspan=2>
    <asp:button  style="font-size:9pt"  CommandName="newuser_reg" ID="reg" runat="server" Text="登录" onclick="check_user"/>
    <input type=button style="font-size:9pt" value="新用户注册" name=reg onclick=window.open('bbs_register.aspx','_self')></td></tr>
    </table>
    <br>
    <asp:label id="statues" runat="server"/>
    <asp:datagrid
          id="myDatagrid"
          runat="server"
          bordercolor="black"
          borderwidth="1"
          WIDTH="760"
          ALIGN="center"
          gridlines="both"
          AutoGenerateColumns="true"
          Visible=false
         />
    <asp:RequiredFieldValidator
     ID="REVPASSWORD"
      ControlToValidate="login_pass"
       Display=None
        InitialValue=""
         ErrorMessage="密码必须填写!"
          Runat=server>
           </asp:RequiredFieldValidator>
    <asp:RequiredFieldValidator
     ID="Requiredfieldvalidator1"
      ControlToValidate="login_name"
       Display=None
        InitialValue=""
         ErrorMessage="用户名必须填写!"
          Runat=server>
           </asp:RequiredFieldValidator>
    <asp:ValidationSummary
      ID="ValidationSummary1"
       Runat=server
           EnableViewState=False
            ShowSummary=False
          HeaderText="用户登录失败，请注意以下规则:"
           ShowMessageBox=True
            Font-Name=verdana
             Font-Size=9pt>
             </asp:ValidationSummary></form></script>
    <!--#include virtual="foot.inc"-->
    </body>
    </html>bbs_reply.aspx
    <%@import namespace="system.data.sqlclient"%>
    <%@import namespace="system.data.OLEDB"%>
    <%@import namespace="system.data"%>
    <%@ Page Language=vb debug=true %>
    <script language="vb" runat="server">
    sub reply_subject(sender as object,e as eventargs)
    '=============上传图片===============================
    dim i as integer
    dim finfo as string
    dim img as string
    dim postedfile as httppostedfile=request.files(I)
    '================================================
    if postedfile.contentlength>0 then
    dim filesplit() as string=split(postedfile.filename,"\")
    dim filename as string=filesplit(filesplit.length-1)
    postedfile.saveas(server.mappath("db")&"\"&filename)
    dim imgpath as string ="db\"&filename
    img="<img src="+imgpath+" border=0>"
    end if
    '== 文本信息==
    dim mycommand as OLEDBcommand
    dim conn as OLEDBconnection
    dim updatestring as string
    dim subjectstr as string=reply.text
    dim subj as string=subject_name.text
    dim flage as string="reply"
    dim description as string=text1.text
    dim username as string=session("username")
    dim userhead as string=session("userhead")
    dim replystr as string=request.querystring("id")
       '================格式转换======================
        subjectstr=subjectstr.Replace("&","&amp;")
    subjectstr=subjectstr.Replace("<","&lt;")
    subjectstr =subjectstr.Replace(">","&gt;")
    subjectstr =subjectstr.Replace(chr(32),"&nbsp;")
    subjectstr =subjectstr.Replace("'","’")
    subjectstr=subjectstr.Replace(chr(13),"<br>")
    '======================
    '================格式转换======================
        subj=subj.Replace("&","&amp;")
    subj=subj.Replace("<","&lt;")
    subj =subj.Replace(">","&gt;")
    subj =subj.Replace(chr(32),"&nbsp;")
    subj =subj.Replace("'","’")
    subj=subj.Replace(chr(13),"<br>")
    '====================================
    description=description.Replace("&","&amp;")
    description=description.Replace("<","&lt;")
    description =description.Replace(">","&gt;")
    description=description.Replace(chr(32),"&nbsp;")
    description=description.Replace("'","’")
    description=description.Replace(chr(13),"<br>")

    '=====================将转换后的字符串保存到数据库===
    if username="" then
    username="未知"
    end if
    updatestring="insert into content(subject,content,subdate,flage,subname,headimg,reply,img,imgdescription)values('"+subj+"','"+subjectstr+"',NOW(),'"+flage+"','"+username+"','"+userhead+"','"+replystr+"','"+img+"','"+description+"')"
    conn=new OLEDBconnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&server.mappath("db\bbs.mdb"))
        mycommand=new OLEDBcommand(updatestring,conn)
        conn.open()
        mycommand.executenonquery()
        '=================================回复数加一--------------
        dim mycommand2 as OLEDBcommand=new OLEDBcommand("update content set replynum=replynum+1 where id="&CINT(request.querystring("id")),conn)
        mycommand2.executenonquery() 
        conn.close()
        subject_name.text=""
        reply.text=""
        response.redirect ("bbs_view.aspx?id="&request.querystring("id"))'===============================================================================================================
    end sub
    </script>
    <body bgcolor=white>
    <!--#include virtual="head.inc"-->
    <form enctype="multipart/form-data" runat=server ID="Form1" style="font-size:9pt" >
      文章标题：<asp:textbox ID="subject_name" runat="server"  TextMode="SingleLine"  MaxLength=30 size=30/>
    <br>
      文章内容：<ASP:TEXTBOX  ID="reply"   runat="server"  textmode="multiline" rows="10" Columns="60"/>
    <br>
    上传图片：<input type=file id=fileup1 runat=server  SIZE=50 maxlength=50><br>
        图片说明：<asp:textbox id=text1 runat=server textmode=singleline maxlength=30 size=30/>
    <p align=center><asp:Button Text="   提交   "  style="font-sizE:9pt" ID="reply_button" Runat=server OnClick="reply_subject"/></p>
    <asp:RequiredFieldValidator
      Runat=server
           Display=None
          ID="Requiredfieldvalidator2"
           ErrorMessage="文章标题必须填写!"
            ControlToValidate=subject_name>
            </asp:RequiredFieldValidator><asp:RequiredFieldValidator
      Runat=server
           Display=None
          ID=RequiredFieldValidator1
           ErrorMessage="文章内容必须填写!"
            ControlToValidate=reply>
            </asp:RequiredFieldValidator>
     <asp:ValidationSummary
       Runat=server
        ShowSummary=False
         EnableViewState=False
        ID=ValidationSummary1
              ShowMessageBox=True
              Font-Name=verdana
             Font-Size=9pt>
           </asp:ValidationSummary>       
    </form>
    <!--#include virtual="foot.inc"-->
    </body>
      

  2.   

    bbs_view.aspx
    <%@import namespace="system.data.sqlclient"%>
    <%@import namespace="system.data.OLEDB"%>
    <%@import namespace="system.data"%>
    <%@ Page Language="vb" debug="true" %>
    <script language="vb" runat="server">
     sub page_load(sender as object,e as eventargs)
    addnewbutton.text="<a href=bbs_addnew.aspx><img src=image\post.gif border=0></a>"

        dim ds as dataset=new dataset
    dim conn as OLEDBconnection
    conn=new OLEDBconnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&server.mappath("db\bbs.mdb"))
    dim mycommand as OLEDBDataAdapter
    dim mycommand2 as OLEDBcommand
    mycommand=new OLEDBDataAdapter("select * from content where id="&request.querystring("id")&" or reply="&request.querystring("id")& " order by id asc",conn)
    mycommand2=new OLEDBcommand("update content set hitnum=hitnum+1 where id="&request.querystring("id"),conn)
    conn.open()
    mycommand.fill(ds)
    mydatalist.datasource=new dataview(ds.tables(0))
    mydatalist.databind()
    try
    mycommand2.executenonquery()
    catch
    response.write ("更新不成功!")
    end try
    conn.close()
    end sub
    </script>
    <body style="font-size:9pt">
    <!--#include virtual="head.inc"-->
    <form runat="server" ID="Form1" enctype="multipart/form-data">
    <asp:label id=addnewbutton runat=server/><a href=bbs_reply.aspx?id=<%response.write(request.querystring("id"))%> target=_self><img src="image\reply_post.gif" border=0></a>
    <br>
    <ASP:DataList id="myDatalist" RepeatColumns="1" RepeatDirection="Horizontal" runat="server">
          <ItemTemplate>
           <table width=776  border=1 cellpadding=3 cellspacing=0 style="border-collapse:collapse" bordercolor=#94CBFF>
           <tr bgcolor=#94CBFF style="font: 8pt verdana"><td  align=center><img src="image\edit.gif"></td><td ><%# DataBinder.Eval(Container.DataItem, "subject") %></td><td ><%# DataBinder.Eval(Container.DataItem, "subname") %></td><td ><%# DataBinder.Eval(Container.DataItem, "subdate") %></td></tr>
           <tr style="font: 8pt verdana"><td align="center"><img src=<%# DataBinder.Eval(Container.DataItem, "headimg") %>> <%# DataBinder.Eval(Container.DataItem, "subname") %></td><td colspan=3 ><%# DataBinder.Eval(Container.DataItem, "content") %><br><center><%# DataBinder.Eval(Container.DataItem, "img") %></center><br><center><%# DataBinder.Eval(Container.DataItem, "imgdescription") %></center></td></tr>
          </table>
          </ItemTemplate>
       </ASP:DataList>
    <br>
    </form>
    <!--#include virtual="foot.inc"-->
    </body>bbs_register.aspx
    <%@import namespace="system.data.oledb"%>
    <%@import namespace="system.data"%>
    <%@ Page Language="vb" debug="true" %>
    <script language=vb runat=server>
    sub page_load(sender as object,e as eventargs)
    dim i as integer
    if not ispostback then
    for i=1 to 34
    dim srcstr as string
    srcstr="image\"+i.tostring()+".gif"
    imglist.Items.Add(new ListItem("",""))
    imglist.items(i-1).value=srcstr
    imglist.items(i-1).text="<img src='"+srcstr+"'>"
    next
    imglist.items(0).selected="true"
    end if
    end sub
    sub check_user(sender as object,e as eventargs)
     if page.isvalid then
     dim mycommand as OLEDBcommand
     dim countnum as integer
     dim conn as OLEDBconnection
     dim querystring as string
    querystring="insert into userinfo(username,headimg,userpassword)values('"+login_name.text+"','"+imglist.selecteditem.value+"','"+login_pass.text+"')"
    conn=new OLEDBconnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("db\bbs.mdb"))
        mycommand=new OLEDBcommand(querystring,conn)
        dim querystring2 as string="select * from userinfo where  (username='"+trim(login_name.text)+"')"
        dim ds as dataset=new dataset
        dim mycommand2 as OLEDBDataAdapter=new OLEDBDataAdapter(querystring2,conn)
        mycommand2.fill(ds)
        mydatagrid.datasource=new dataview(ds.tables(0))
    mydatagrid.databind()
        if mydatagrid.items.count<>0 then
          statues.style("color")="red"
          statues.text="注册失败，此用户名已被注册,请重新选择一个用户名!"
        else
      TRY
       conn.open
       CATCH SS AS EXCEPTION
       STATUES.TEXT=SS.MESSAGE
       END TRY
       'TRY 
       mycommand.executenonquery()
        statues.style("color")="red"
       statues.text="注册成功,请直接进入!"
       'CATCH D AS EXCEPTION
       'STATUES.TEXT=D.MESSAGE
       'END TRY
       end if  
       conn.close()
       end if
       end sub
    </script>
    <html>
    <head>
    <meta name="GENERATOR" Content="Microsoft Visual Studio.NET 7.0">
    </head>
    <body>
    <!--#include virtual="head.inc"-->
    <form runat="server">
    <table width=600 align=center style="font-size:9pt;border-collapse: collapse" border=1 bordercolor=black bgcolor=#94CBFF>
    <tr><td colspan=2 bgcolor=#63309C><img src="image\ip.gif">&nbsp;&nbsp;新用户注册</td></tr>
    <tr><td>&nbsp;&nbsp;用户名：</td><td><asp:textbox style="border:1px solid black" ID="login_name" MaxLength="20"  runat="server"  TextMode="SingleLine"  /></td></tr>
    <tr><td>&nbsp;&nbsp;登录密码：</td><td><asp:textbox style="border:1px solid black" ID="login_pass" MaxLength="6"  runat="server" TextMode="password"/></td></tr>
    <tr><td>&nbsp;&nbsp;确认密码：</td><td><asp:textbox style="border:1px solid black" ID="re_login_pass" MaxLength="6"  runat="server" TextMode="password"/></td></tr>
    <tr><td>&nbsp;&nbsp;OICQ：</td><td><asp:textbox style="border:1px solid black" ID="oicq" MaxLength="12"  runat="server" TextMode="SingleLine" /></td></tr>
    <tr><td colspan=2>
    <asp:radiobuttonlist ID="imglist" Runat="server"  RepeatDirection=Horizontal RepeatColumns=10/>
    </td></tr>
    <tr align=center><td colspan=2>
    <asp:button CommandName="newuser_reg" ID="reg" runat="server" STYLE="FONT-SIZE:9PT" Text="开始注册" onclick="check_user"/>
    <asp:label id="statues" runat="server"/>
    </td></tr>
    </table>
    <br><asp:datagrid
          id="myDatagrid"
          runat="server"
          bordercolor="black"
          borderwidth="1"
          WIDTH="760"
          ALIGN="center"
          gridlines="both"
          AutoGenerateColumns="true"
          visible="false"/>
    <asp:RequiredFieldValidator
     ID="REVPASSWORD"
      ControlToValidate="login_pass"
       Display=None
        InitialValue=""
         ErrorMessage="密码必须填写!"
          Runat=server>
           </asp:RequiredFieldValidator>
    <asp:RequiredFieldValidator
     ID="Requiredfieldvalidator1"
      ControlToValidate="login_name"
       Display=None
        InitialValue=""
         ErrorMessage="用户名必须填写!"
          Runat=server>
           </asp:RequiredFieldValidator>
        <asp:CompareValidator
           Runat=server
            ID="CompareValidator1"
             ControlToValidate="login_pass"
              ControlToCompare="re_login_pass"
                Type=String
                  Operator=Equal
                   Display=None
                ErrorMessage="两次输入的密码不一致!">
                </asp:CompareValidator>
    <asp:RegularExpressionValidator
         ID="oicqvalidator"
          ControlToValidate="oicq"
           Runat=server
            Display=None
              ValidationExpression="[0-9]\d+"
              ErrorMessage="OICQ号码必须为数字!">
              </asp:RegularExpressionValidator>
    <asp:ValidationSummary
      ID="ValidationSummary1"
       Runat=server
           EnableViewState=False
            ShowSummary=False
          HeaderText="注册失败，请注意以下规则:"
           ShowMessageBox=True
            Font-Name=verdana
             Font-Size=9pt>
             </asp:ValidationSummary>
     
    </form>
    <!--#include virtual="foot.inc"-->
    </body>
    </html>