最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
简单asp+mssql server 留言板系统
时间：2022-07-02 22:32:00 编辑：袖梨 来源：一聚教程网
sub opensql()
set sqlrs=server.CreateObject("adodb.recordset")
set sqlcn=server.createobject("adodb.connection")
sqlconstr="driver={sql server};server=xiewen;uid=sa;pwd=123456;database=jimmy"
sqlcn.open sqlconstr
end sub
//功能处理程序asp教程把内容保存到数据库
<%dim f_id,tag,names,lytxt
f_id=request.QueryString("id")
tag=request.QueryString("tag")
lytxt=html_encode(request.Form("lytxt"))
names=session("lyname")
if names="" then
names="匿名"
end if
if (not isnumeric(f_id)) or (not isnumeric(tag)) or len(lytxt)<5 then
response.Write("")
else
sql="select * from guestbook"
on error resume next
call opensql()
sqlrs.open sql,sqlcn,1,3
sqlrs.addnew
sqlrs("ly")=lytxt
sqlrs("f_id")=f_id
sqlrs("tag")=tag
sqlrs("name")=names
sqlrs.update
if err=0 then
response.Redirect("list.asp?id="&f_id&"&tag="&tag)
else
response.Write("")
end if
end if
%>
html提供页面
本站原创转载注明 www.111com.net
相关文章
- 《真三国无双：起源》反击方法 11-25
- 《真三国无双：起源》武艺使用方法 11-25
- 《潜行者2：切尔诺贝利之心》手动存档方法介绍 11-25
- 《潜行者2：切尔诺贝利之心》支线任务盗亦无道攻略 11-25
- 《真三国无双：起源》回避作用分享 11-25
- 《潜行者2：切尔诺贝利之心》战役存档槽作用介绍 11-25