wordadd1.asp

来自「简单的BBS论坛,一个简单的BBS论坛,对学习注册和较大规模的BBS组具有很好的」· ASP 代码 · 共 38 行

ASP
38 行
字号 
<body bgcolor="#FBF0C8">
<%LogTime=Now()%>
<%Num=Cstr(Hour(LogTime)) & Cstr(Minute(LogTime)) & Cstr(Second(LogTime))& Cstr(Int(Rnd*10000))%>

<%
Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("bbspp1.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"
Conn.Open connstr
%>
<%
sql="SELECT * FROM 用户表 WHERE 临时身份<>' ' and 临时身份='" & Request("No") & "'"
Set Rs=conn.Execute(sql)
If Rs.Bof OR Rs.Eof Then
Response.Write "临时身份出错,你无权发言,请从新登陆。"
else
Set name1 = rs("用户名") 
Set mail = rs("电子信箱") 
Set url = rs("网址")

%>

<p>姓名：<%Response.Write name1%></p>
<p>E_mail：<%Response.Write mail%></p>
<p>主页：<%Response.Write url%></p>
<form method="POST" action="wordadd2.asp">
<p><input type="hidden" name="rewordnum" value="0"><p>
<p><input type="hidden" name="Num1" value="1"><p>
<p><%Response.Write "<input type='hidden' name='Num' value='" & Num & "'>"%><p>
<p><%Response.Write "<input type='hidden' name='No' value='" & Request("No") & "'>"%><p>
<p><%Response.Write "<input type='hidden' name='name' value='" & name1 & "'>"%><p>
<p><%Response.Write "<input type='hidden' name='mail' value='" & mail & "'>"%><p>
<p><%Response.Write "<input type='hidden' name='url' value='" & url & "'>"%><p>
  <p>发言标题：<input type="text" name="topic" size="24"></p>
  <p><textarea rows="9" name="conten" cols="57"></textarea></p>
  <p>　　<input type="submit" value="提交" name="B1">　　<input type="reset"
  value="复原" name="B2"></p>
</form>
<%end If%>

wordadd1.asp - 源码说明

本页面展示了「简单的BBS论坛,一个简单的BBS论坛,对学习注册和较大规模的BBS组具有很好的学习作用」中的 wordadd1.asp 源码文件，采用 ASP 编程语言编写，共 38 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与BBS相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?