dzhaiok.asp

这是一个非常好的留言版程序

<!--#include file="conn.asp"-->
<!--#include file="char.asp"-->

<% 
if UserID="" then
	UserID="匿名"
end if
set rs=conn.execute("select isvip from myuser where UserID='"&UserID&"'")
if not rs.bof and not rs.eof then
isvip=rs(0)
end if
rs.close

Title=trim(Request.Form("Title"))
Title=replace(Title,"D摘设计联盟","")

string1=Title
string1=replace(string1," ","")
string1=replace(string1,"~","")
string1=replace(string1,"!","")
string1=replace(string1,"*","")
string1=replace(string1,"^","")
set rs=conn.execute("select glgjz from jbxx")
string2=rs(0)
rs.close

a=split(string2,"，")

For i=LBound(a) to UBound(a)
	c=InStr(trim(string1),a(i))
	if c>0 then
			response.write"<SCRIPT language=JavaScript>alert('对不起，有非法字符');"
			response.write"javascript:history.go(-1);</SCRIPT>"
			response.end
	end if	
next

FromURL=HTMLcode(Trim(Request.Form("FromURL")))
Review=""
Intro=HTMLcode(Request.Form("Intro"))
Sort=Trim(Request.Form("Sort"))

set rs=conn.execute("select sortid,SortName from sort where SortID='"&sort&"'")
if not rs.bof and not rs.eof then   
  sortname=rs(1)
end if
	 rs.close

Rank=Trim(Request.Form("Rank"))
IsPub=Trim(Request.Form("IsPub"))
Img=HTMLcode(Trim(Request.Form("Img")))
XSort=Trim(HTMLcode(Trim(Request.Form("XSort"))))
XSort=ltrim(XSort)
XSort=rtrim(xsort)
Xsort1=xsort
XSort=replace(XSort,"  ","_")
XSort=replace(XSort," ","_")
XSort=replace(XSort,"__","_")

s=split(XSort,"_")
'response.write xsort&UBOUND(s)
'response.end

	set rsmb=server.createobject("ADODB.recordset")
	rsmb.Open "mb",conn,1,1
	
	mbcontent=rsmb("mb")
	rsmb.close

	filepath="article"
	
function makefilename(idate)   
  idate= date()   
  idate= replace(idate,"-","")   
  idate= replace(idate," ","")    
  idate= replace(idate,":","")   
  makefilename=idate   
end function 
 
filepath=makefilename(idate) '要生成的目录
path="article/"&filepath '总目录
 
sql="select top 2 id from zhai order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.recordcount>0 then
oldid=rs("id")+1
else
oldid=1
end if
rs.close
fname=oldid&".htm"
pencat=mbcontent

if Title<>"" then
	set rsadd=server.createobject("ADODB.recordset")
	Application.Lock()
	sql="select * from zhai where FromURL='"&FromURL&"'"
	rsadd.Open sql,conn,3,3
	if rsadd.bof and rsadd.eof then
		rsadd.AddNew
		rsadd("Title")=Title
		rsadd("UserID")=UserID
		rsadd("FromURL")=FromURL
		rsadd("PostTime")=now
		rsadd("Intro")=Intro
		rsadd("Sort")=Sort
		rsadd("Rank")=Rank
		rsadd("Reads")=1
		rsadd("IsPub")=IsPub
		rsadd("Img")=Img
		if XSort1<>"" then
		rsadd("XSort")=XSort1
		end if
		rsadd("HtmUrl")=fname
		rsadd("filepath")=filepath
		rsadd("isvip")=isvip
		rsadd.Update
		ID=rsadd("ID")
	else
			response.write"<SCRIPT language=JavaScript>alert('对不起，该地址已存在，请勿重复收藏');"
			response.write"javascript:history.go(-1);</SCRIPT>"
			response.end	
	end if
	rsadd.close
	
	if trim(XSort)<>"" then
	for i=0 to UBOUND(s)
	
	set rsXSort=server.createobject("ADODB.recordset")
	sql="select * from XSort where Xsort='"&s(i)&"'"
	rsxsort.open sql,conn,1,2
	
	if rsxsort.bof and rsxsort.eof then

		rsxsort.addnew
		rsxsort("sort")=sort
		rsxsort("xsort")=s(i)
		rsxsort("hits")=1
		rsxsort("userid")=userid
		rsxsort.update

	else
		hits=rsxsort("hits")
		hits=hits+1
		conn.execute("update xsort set hits="&hits&" where Xsort='"&s(i)&"'")
	end if
	next
    end if
    
    
	dim VisitIP,VisitURL
	set rsadd=server.createobject("ADODB.recordset")
	rsadd.Open "visit",conn,3,3
	rsadd.AddNew
	rsadd("ZhaiID")=ID
	rsadd("UserID")=UserID
	rsadd("VisitIP")=VisitIP
	rsadd("VisitURL")=VisitURL
	rsadd("VisitTime")=now
	rsadd.Update	
	rsadd.close	
	set rsupdate=conn.execute("update myuser set ZhaiNum=ZhaiNum+1 where UserID='"&UserID&"'")
	Application.UnLock()
end if

			dddd = year(now()) & "年" & month(now()) & "月" & day(now()) & "日" & hour(now())&":"&minute(now())
				pencat=replace(pencat,"HtmTitle",title)
				pencat=replace(pencat,"HtmGjz",XSort)
				pencat=replace(pencat,"HtmUpdate",dddd)
				pencat=replace(pencat,"HtmContent",Intro)
				pencat=replace(pencat,"栏目",sortname)
				pencat=replace(pencat,"sdfsdf",sort)				
				pencat=replace(pencat,"HtmUrl",FromURL)
				pencat=replace(pencat,"原文地址",FromURL)
				pencat=replace(pencat,"Htmfname",fname)
				pencat=replace(pencat,"网摘编号",id)
				
			
				dim fout1,fout
				Set fso = Server.CreateObject("Scripting.FileSystemObject")   
				if fso.folderexists(server.mappath(path)) then   
				  dd=1   
				else   
					Set fout1 = fso.CreateFolder(server.mappath(path))	   
				end if
				
				'if fso.fileexists(server.mappath(path& "\" & fname)) then
				'  d22=2
				'else
				Set fout = fso.CreateTextFile(server.mappath(path& "\" & fname))   
				fout.WriteLine pencat   
				'end if
				fout.close   
				set fso=nothing
				

		
 %>
<html>
<head>
<title><%=SiteName%>_网摘·网络书签·收藏夹</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<style>
	body{margin-top:2px;}
	input,textarea {font-size:14px}
	a:link{color:#0000cc}
	a:visited{color:#551a7b}
	.a{font-family:Arial;font-size:90%;LINE-HEIGHT: 150%;}
	.b{font-family:Arial;font-size:80%;LINE-HEIGHT: 150%;}
	.l{font-family:Arial;font-size:80%;color:#666666}
	
	.e{font-family:Arial;font-size:100%;LINE-HEIGHT: 190%}
	
	.g{font-family:Arial;font-size:70%;color:#666666;LINE-HEIGHT: 150%;}
	.border1 {
	border: 1px dashed #D4D4D4;
	}
	
	.notice {
	color: #FF6600;font-size:70%;
	}
	
	.style1 {color:#666666;font-size:12px; LINE-HEIGHT: 150%; font-family: Arial;}
</style>

</head>
<script>
	setTimeout("op();",5000)
	function op()
	{	
		window.close();
	}
</script>
<body leftmargin="0" topmargin="0" tracingsrc="1zhai.gif" tracingopacity="100">
<center><br><br>
  <table width="440" height="59" >
    <tr> 
      <td height="19" colspan="2" align="center" class="e"><b>网页收藏成功!</b>
	  <br>
	  <span class="style1">5秒钟后本窗口自动关闭</span><br>	  <br>
	  <table width="360">
	<tr>
      <td  align=center><span class="l">查看收藏结果，请访问</span><a href="myzhai.asp" target=_blank><font color="ff0000">http://www.dzhai.com</font></a></td>
    </tr>
<form name="form1" target="_blank">
<%
if UserID="匿名" then
%>
<tr><td></td></tr>
<%
end if
%>
</form>	
  </table>
  <form name="form2" method="post" action="">
    <input name="button" type="submit" id="button" style="height:24"  value=" 关闭 " onClick="window.close()">
  </form>
	  </td>
    </tr>
  </table>
</center>
</body>
</html>