书签 分享 收藏 举报 版权申诉 / 23

类型校园绿色论坛设计说明书.docx

  • 文档编号:23305869
  • 上传时间:2023-05-16
  • 格式:DOCX
  • 页数:23
  • 大小:129.06KB

                

<%response.writeRequest("from_useradd2")%>

5.2发表帖子

<%LogTime=Now()%>

<%Num=Cstr(Hour(LogTime))&Cstr(Minute(LogTime))&Cstr(Second(LogTime))&Cstr(Int(Rnd*10000))%>

<%

SetConn=Server.CreateObject("ADODB.Connection")

Connstr="DBQ="+server.mappath("bbspp1.mdb")+";DefaultDir=;DRIVER={MicrosoftAccessDriver(*.mdb)};DriverId=25;FIL=MSAccess;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"

Conn.Openconnstr

%>

<%

sql="SELECT*FROM用户表WHERE临时身份<>''and临时身份='"&Request("No")&"'"

SetRs=conn.Execute(sql)

IfRs.BofORRs.EofThen

Response.Write"临时身份出错,您无权发言,请从新登陆。

"

else

Setname1=rs("用户名")

Setmail=rs("电子信箱")

Seturl=rs("网址")

%>

姓名:

<%Response.Writename1%>

E_mail:

<%Response.Writemail%>

主页:

<%Response.Writeurl%>

<%Response.Write""%>

<%Response.Write""%>

<%Response.Write""%>

<%Response.Write""%>

<%Response.Write""%>

发言标题:

    

value="复原"name="B2">

<%endIf%>

5.3修改管理员密码

<%Response.Buffer=true%>

<%

SetConn=Server.CreateObject("ADODB.Connection")

Connstr="DBQ="+server.mappath("bbspp1.mdb")+";DefaultDir=;DRIVER={MicrosoftAccessDriver(*.mdb)};DriverId=25;FIL=MSAccess;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"

Conn.Openconnstr

%>

<%

sql="SELECT*FROM用户表WHERE用户名='论坛管理员'"

SetRs=conn.Execute(sql)

setNo=rs("临时身份")

ifNo=""orNo<>Request("No")then

Response.Write"您必须以管理员身份登陆"

else

%>

>

 

height="19"bgcolor="#B9BEFB">

   原来密码:

   新的密码:

 确认新的密码:

         

type="submit"value="确认修改"name="B1">   

name="B2">

             

          

No=<%Response.WriteRequest("No")%>">讨论区

        

No=<%Response.WriteRequest("No")%>">管理区

        

No=<%Response.WriteRequest("No")%>">离开论坛



<%

B1=Request("B1")

IfB1="确认修改"Then

IfRequest("pass1")<>Rs("密码")then

Response.Write"原来密码不对!

!

"

endIf

IfRequest("pass2")<>Request("pass3")Then

Response.Write"确认错误,请从新确认密码。


"

endIf

IfRequest("pass2")=""Then

Response.Write"您至少输入一位以上的密码
"

endIf

IfRequest("pass1")=Rs("密码")andRequest("pass2")=Request("pass3")andRequest("pass2")<>""then

sql="UPDATE用户表SET密码='"&Request("pass2")&"'WHERE临时身份='"&Request("No")&"'"

conn.Executesql

conn.close

Response.clear

Response.Write"密码修改成功
"

endIf

EndIf

EndIf

%>

5.4删除不良言论

<%Response.Buffer=true%>

<%

SetConn=Server.CreateObject("ADODB.Connection")

Conn

配套讲稿:

如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。

特殊限制:

部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。

关 键  词:
校园 绿色 论坛 设计 说明书
提示  冰豆网所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。
关于本文
本文标题:校园绿色论坛设计说明书.docx
链接地址:https://www.bdocx.com/doc/23305869.html
关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服 - 联系我们

copyright@ 2008-2022 冰点文档网站版权所有

经营许可证编号:鄂ICP备2022015515号-1

收起
展开