detnew.asp
| <%@LANGUAGE="VBSCRIPT" CODEPAGE="CP_ACP"%> <!--#include virtual="adovbs.inc"--> <% dbpath=server.MapPath("news.mdb") set conn=server.CreateObject("adodb.connection") conn.open"driver={Microsoft Access Driver (*.mdb)};dbq="&dbpath titleID=request("titleID") name=request("name") Email=request("Email") subject=request("subject") words=request("words") if subject="" or words="" or name="" or Email="" then outputmsg="字段不能为空，请填写完整信息！" else set rs=server.CreateObject("adodb.recordset") rs.open "details",conn,adopendynamic,adlockpessimistic rs.addnew rs("name")=name rs("Email")=Email rs("subject")=subject rs("words")=words rs("titleID")=titleID rs.update outputmsg="您的回复已加入！" session("name")=name session("Email")=Email sql="update titles set lastnewsdate=now(),shu=shu 1 where titleID="&clng(titleID) conn.execute(sql) end if %> <html> <head> <title>Untitled Document</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <meta http-equiv="refresh" content="1;URL=detail.asp?titleID=<%=titleID%>"> </head> <body> <center><%=outputmsg%></center> </body> </html> |
detout.asp
| <% sub detailoutput(rs) words=replace(server.HTMLEncode(" "&rs("words")),chr(13),"<br>") words=replace(words," "," ") Email="<a href="""&rs("Email")&"mailto:"&rs("Email")&""">"&rs("Email")&"</a>" %> <center> <table> <tr> <td>作者：<%=rs("name")%></td> <td>Email：<%=Email%></td> <td>时间：<%=rs("newdate")%></td> </tr> <tr> <td colspan="3">主题：<%=rs("subject")%></td> </tr> <tr> <td colspan="3"><%=words%></td> </tr> </table> </center> <% end sub %> |
这个程序只是一个简单的范例，还有许多功能没有加入，只是给大家作为参考。
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
