数据库教程连接程序
sub opensql()
set sqlrs=serverCreateObject("adodbrecordset")
set sqlcn=servercreateobject("adodbconnection")
sqlconstr="driver={sql server};server=xiewen;uid=sa;pwd=;database=jimmy"
sqlcnopen sqlconstr
end sub
//功能处理程序asp教程把内容保存到数据库
<%dim f_idtagnameslytxt
f_id=requestQueryString("id")
tag=requestQueryString("tag")
lytxt=html_encode(requestForm("lytxt"))
names=session("lyname")
if names="" then
names="匿名"
end if
if (not isnumeric(f_id)) or (not isnumeric(tag)) or len(lytxt)< then
responseWrite("<script language=javascript教程>alert(文章内容不能少于五个字符!);historyback();</script>")
else
sql="select * from guestbook"
on error resume next
call opensql()
sqlrsopen sqlsqlcn
sqlrsaddnew
sqlrs("ly")=lytxt
sqlrs("f_id")=f_id
sqlrs("tag")=tag
sqlrs("name")=names
sqlrsupdate
if err= then
responseRedirect("listasp?id="&f_id&"&tag="&tag)
else
responseWrite("<script language=javascript>alert(非常抱歉您的留言失败!);historyback();</script>")
end if
end if
%>
html提供页面
<input name=lytxt >
<input type=submit value提交 />
