简单asp mssql server 留言板系统

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("<script language='javascript教程'>alert('文章内容不能少于五个字符!');history.back();</script>")
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("<script language='javascript'>alert('非常抱歉，您的留言失败!');history.back();</script>")
 end if
end if

%>

html提供页面

<input name=lytxt >

<input type=submit value提交 />

本站原创转载注明 www.jiaochengji.com

您可能感兴趣的文章：
简单asp mssql server 留言板系统
asp与php区别是什么？
iis php提示An error occurred on the server when processing the URL
php有哪些简单的系统可以做
asp简介和五大内置对象
asp与php的区别
人文的ASP开发基础入门之简介
asp简单还是php简单
php留言板功能模块有哪些
从Google规则调整看中国的SEO现状