📄 wordadd1.asp

📁 论坛系统.有注册,修改,留言,删除等功能,简便容易实现.

💻 ASP

字号:

<body bgcolor="#CCCCCC">
<%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("网址")
end if
%>

<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>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -