ztflashinsetword.asp

功能强大的日记本实现管理写日记和真实的日记本一样带锁不会让别人看到你的隐私

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="conn.asp" -->
<%
'程序演示地址：http://www.5i58.net/diary.htm
'● 程序名：flash日记本和flash留言本  v1.2
'● 语言：ASP & as
'● 运行环境：Win2000 IIS，ASP+Access。
'● 开发者: www.5i58.net 我爱我吧学习网
'● 联系方式（技术支持）：QQ:50810089    MSN: [e-mail](VIP技术支持)
'如果您想用作商业用途，请与我们联系，升级为 VIP 版本
'写入数据库转换
function encodestrtemp(str)
 dim i
 if IsNull(str) then exit function
 'str=replace(str,"&lt;","<")
 'str=replace(str,"&gt;",">")
 str=replace(str,"'","""")
 'str=replace(str,"</p><p>",vbCrLf&vbCrlf)
 'str=replace(str,"<br>",vbCrLf)
 'encodestr=replace(str,"  ","　")
end function

HYname=Request.Form("HYname")
ZTtitle=Request.Form("ZTtitle")
ZTbody=encodestrtemp(Request.Form("ZTbody"))
ZTinsertWhatTable=Request.Form("ZTinsertWhatTable")'插入到哪个表1为flash、2为DW、3为photo、4为down
ZTupTitle=Request.Form("ZTupTitle")'相关文章关键字
ZTdate=FormatDateTime(date,2)
ZTorderDate=now()
ZTifHY=Request.Form("ZTifHY")'是否为会员文章
ZTifClass=Request.Form("ZTifClass")'要多少金钱
Select case ZTinsertWhatTable
  case "1"
  SQL="ZhuanTiFlash"
  case "2"
  SQL="ZhuanTiDW"
  case "3"
  SQL="ZhuanTiPhoto"
  case "4"
  SQL="ZhuanTiDown"
End Select
conn.execute "INSERT INTO "&SQL&" (HYname, ZTtitle, ZTbody, ZTdate, ZTorderDate, ZTupTitle, ZTifHY, ZTifClass) VALUES ('"&HYname&"','"&ZTtitle&"','"&ZTbody&"','"&ZTdate&"','"&ZTorderDate&"','"&ZTupTitle&"','"&ZTifHY&"','"&ZTifClass&"')"
'conn.execute "INSERT INTO ZhuanTiFlash (HYname, ZTtitle, ZTbody, ZTdate, ZTorderDate) VALUES ('&HYname&','&ZTtitle&','&ZTbody&','&ZTdate&','&ZTorderDate&')"
Response.Redirect("../html/admin/adminZTindex.asp")
CloseDataConn()
%>