📄 callboard.asp
字号:
<%
Option Explicit
dim conn,DBPath
dim rs_lar,rs_board
dim sql,name,board
'叛断Session变量是否超时
if isempty(session("user_id")) then
response.redirect "timeout.htm"
end if
if session("user_id")=1 then
response.redirect "notreg.htm"
response.end
end if
'-----------------------------------------------------------------
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("friend.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
'-----------------------------------------------------------------
Set rs_lar = Server.CreateObject("ADODB.Recordset")
sql="select * from larchives where user_id =" & session("user_id")
rs_lar.open sql,conn,3,2
name =rs_lar("name")
board =request("board")
if board<>"" then
if len(board)>200 or board="" then
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>写寻友公告</title>
<style>
<!--
tr { font-size: 10pt }
body { font-size: 10pt }
a:link { color: blue; text-decoration: none }
a:visited { color: blue; text-decoration: none }
a:active { color: #ff9966; text-decoration: none }
a:hover { color: red; text-decoration: none }
-->
</style>
</head>
<body>
<table border="1" width="31%" bordercolor="#000000" cellspacing="0" align="center">
<td bgcolor="#000000">
<p align="center"><b><font color="#FFFFFF" size="2">错误提示</font></b>
<tr>
<td>
<table width="100%" cellspacing="0">
<tr>
<td width="100%" bgcolor="#EEEEEE">
<p align="center"><font size="2">启事最多不能超过200个符或不能为空!</font>
</td>
</tr>
<tr>
<td width="100%" bgcolor="#EEEEEE">
<p align="center"><a href="" onclick="history.go(-1)"><font size="2">[返回]</font></a>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
response.end
end if
Set rs_board = Server.CreateObject("ADODB.Recordset")
rs_board.open "callboard",conn,3,2
rs_board.addnew
rs_board("name")=name
rs_board("board")=board
rs_board("date")=date
rs_board("user_id")=session("user_id")
rs_board.update
rs_board.close
rs_lar.close
set rs_lar=nothing
set rs_board=nothing
set conn=nothing
response.redirect "search.asp"
end if
%>
<form>
<div align="center">
<table border="1" bordercolor="#000000" cellspacing="0" height="111">
<tr>
<td bgcolor="#000000" height="13">
<p align="center"><b><font color="#FFFFFF">写寻友公告</font></b></td>
</tr>
<tr>
<td bgcolor="#EEEEEE" height="90">
<table border="0" cellspacing="0" height="45">
<tr>
<td height="25">您的姓名:</td>
<td height="25"><input type="text" name="name" size="20" value="<%=name%>" disabled></td>
</tr>
<tr>
<td height="1" valign="top">寻友公告:</td>
<td rowspan="2" height="21" valign="top">
<textarea rows="4" name="board" cols="44" wrap="hard"></textarea></td>
</tr>
<tr>
<td height="28"></td>
</tr>
<tr>
<td height="30" colspan="2" valign="middle">
<p align="right"><input type="submit" value="提交" name="B1"><input type="reset" value="重写" name="B2"></td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</form>
<p align="center"> <!--Banner-->
<script src="http://www.644000.net/guanggao/banner.asp"></script>
<!--Banner --></p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -