📄 request.asp
字号:
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>发表主题</title>
</head>
<body leftmargin="150">
<table border="1" width="491" height="444">
<tr>
<td height="50" width="491" colspan="2">
<p align="center"><b><font size="5">发表主题</font></b></td>
</tr>
<form action="request.asp" method="post">
<tr>
<td height="34" width="40">主题</td>
<td height="34" width="435"><input type="text" name="T1" size="61"></td>
</tr>
<tr>
<td height="22" width="40">内容</td>
<td height="220" width="435">
<textarea rows="16" name="S1" cols="59"></textarea></td>
</tr>
<tr>
<td height="28" width="491" colspan="2">
<p align="center">
<input type="submit" value="提交" name="B1"> <input type="reset" value="重置" name="B2"></td>
</tr>
</form>
<tr>
<td height="84" width="491" colspan="2">
<%
if request.form("B1")="提交" then
title=request.form("T1")
qusetion=request("S1")
if title="" then
response.write"内容不完整"
else
dim conn,connstr
connstr="Driver={sql server};UID=sa;PWD=sa;database=zikao;server=BILLGATES"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from liuyan"
rs.open sql,conn,1,2,1
rs.addnew()
rs("title")=title
rs("request")=qusetion
rs.update()
response.write"发表成功"
end if
end if
%>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -