📄 look2.asp
字号:
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("bbsdb.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 info WHERE Num='" & Request("Num") & "'"
Set Rs=conn.Execute(sql)
set name4=rs("forder")
set name3=rs("username")
set name1=rs("subject")
set name2=rs("neirong")
set name5=rs("email")
set Num=rs("Num")%>
<html>
<head>
<title></title>
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--
function B1_onclick() {
if (frmsend.conten.value==""){
alert("回复内容不能为空！");
return false;
}else
{
frmsend.submit();
return true;
}
}
//-->
</SCRIPT>
</head>
<body bgcolor="#CCFFFF">
<%Do Until rs.EOF%>
<%if name4="1" then
ren="发言"
else
ren="回复"
end if%>
<table border="1" bgcolor="#CCFFFF" cellpadding="0" cellspacing="0" height="5" align="center" width="480">
<tr bgcolor="#FFCCFF">
<td width="67" height="27" nowrap>姓名： </td>
<td width="518" height="27" bgcolor="#FFFFCC"><a href="mailto:<%Response.Write name5%>"><%Response.Write Name3%></a></td>
</tr>
<tr bgcolor="#FFCCFF">
<td width="67" height="27" nowrap><font size="4" ><%Response.Write ren%></font>
： </td>
<td width="518" height="27" bgcolor="#FFFFCC"><font size="4" ><%Response.Write Name1%></font></td>
</tr>
<tr bgcolor="#FFFFCC">
<td width="67" height="41" bgcolor="#FFCCFF" nowrap><font size="4" ><%Response.Write ren%></font>内容：</td>
<td height="41" width="518"><%Response.Write Name2%></td>
</tr>
</table>
<br><br>
<%rs.MoveNext
Loop%>
<%rs.close%>
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("bbsdb.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 user WHERE pois<>' ' and pois='" & Request("No") & "'"
Set Rs=conn.Execute(sql)
If Rs.Bof OR Rs.Eof Then
%>
<script language=javascript>
<!--
alert("对不起！你无权发言,请从新登陆。");
window.location.href="default.asp";
//-->
</script>
<%
else
set name=rs("username")
set mail=rs("email")
set url=rs("web")%>
<%mail=mail
url=url
name=name%>
<%rs.close%>
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("bbsdb.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 info WHERE Num='" & Request("Num") & "'"
Set Rs=conn.Execute(sql)
set name1=rs("subject")
set name2=rs("neirong")
set Num=rs("Num")%>
<form method="POST" action="sword.asp" name=frmsend>
<p align="center"><font size="5">回复提交</font></p>
<table width="468" border="1" cellspacing="0" cellpadding="0" height="101" align="center" bgcolor="#FFCCFF">
<tr>
<td nowrap width="96" height="30" align="center">您的姓名：</td>
<td nowrap width="366" height="30"><%=name%></td>
</tr>
<tr>
<td nowrap width="96" align="center">回 复：</td>
<td nowrap width="366">
<input type="text" name="topic" value="<%=Rs("subject")%>" readonly>
</td>
</tr>
<tr>
<td width="96" align="center"> </td>
<td width="366">
<p>
<input type="hidden" name="Num" value="<%=Rs("Num")%>">
<input type="hidden" name="mail" value="<%=mail%>">
<input type="hidden" name="url" value="<%=url%>">
<input type="hidden" name="name" value="<%=name%>">
<input type="hidden" name="No" value="<%Response.Write Request("No")%>">
</td>
</tr>
<tr>
<td width="96" align="center"> </td>
<td width="366">
<textarea rows="9" name="conten" cols="57"></textarea>
</td>
</tr>
<tr>
<td width="96" align="center">
<input type="submit" value="提交" name="B1" LANGUAGE=javascript onclick="return B1_onclick()">
</td>
<td width="366">
<input type="reset"
value="重填" name="B2">
</td>
</tr>
</table>
<table width="257" border="0" cellspacing="0" cellpadding="0" align="right">
<tr>
<td> </td>
</tr>
<tr>
<td>
<input type="submit" name="Submit" value="返回" onClick="window.history.go(-1)">
</td>
</tr>
</table>
<p> </p>
<p> </p>
<p>
<p> </p>
<p> </p>
</form>
<%end If%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -