(留言代码.docVIP

ASP 留言代码（留言网页界面制作） ASP 留言代码 1 1.制作留言界面book.asp 1 2.制作连接数据库的中介conn.asp界面 9 3.新建一个数据库 9 ASP 留言代码 1.制作留言界面book.asp 代码如下 !--#include file=conn.asp-- !DOCTYPE html PUBLIC -//W3C//DTD XHTML 1.0 Transitional//EN /TR/xhtml1/DTD/xhtml1-transitional.dtd html xmlns=/1999/xhtml head meta http-equiv=Content-Type content=text/html; charset=gb2312 / titleASP留言代码/title link href=css/style.css rel=stylesheet type=text/css style type=text/css !-- body { margin-left: 0px; margin-top: 0px; margin-right: 0px; margin-bottom: 0px; } a:link { text-decoration: none; } a:visited { text-decoration: none; } a:hover { text-decoration: none; } a:active { text-decoration: none; } body,td,th { font-size: 12px; } -- /style script type=text/JavaScript !-- function MM_preloadImages() { //v3.0 var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array(); var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; ia.length; i++) if (a[i].indexOf(#)!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}} } //-- /script /head body onLoad=MM_preloadImages(img/con-2.jpg) table width=975 border=0 cellspacing=0 cellpadding=0 tr tdtable width=100% border=0 cellspacing=0 cellpadding=0 tr td align=left valign=toptable width=100% border=0 cellspacing=0 cellpadding=0 tr td align=left valign=top% dim rndnum,verifycode Randomize Do While Len(rndnum)4 num1=CStr(Chr((57-48)*rnd+48)) rndnum=rndnumnum1 loop session(verifycode)=rndnum % % if Request(work)=add then verifycode=trim(Request.Form(verifycode)) verifycode2=trim(Request.Form(verifycode2)) if verifycodeverifycode2 then Response.Write SCRIPT LANGUAGE=JavaScript Response.Write alert(验证码错误！); Response.Write history.go(-1); Response.Write /SCRIPT else session(verifycode)= set rs=server.createobject(adodb.recordset) sql=select * from liuyan rs.open sql,conn,3,3 rs.addnew rs(B_name) =Request(B_name) rs(B_msn) =Request(B_msn) rs(B_mail) =Request(B_