WebRoot/daoxinwenjsp.asp

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

微信扫码关注公众号，代码整理好后第一时间通知你。

<%
connstr="DRIVER={SQL Server};Server=.;UID=sa;PWD=sa123456;DATABASE=jsp_yiqingjiaoliusite;"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr

connstr2="DRIVER={SQL Server};Server=.;UID=sa;PWD=sa123456;DATABASE=hsgsupernews;"
set conn2=server.createobject("ADODB.CONNECTION")
conn2.open connstr2

set rs=server.createobject("adodb.recordset")
set rs2=server.createobject("adodb.recordset")

%>


<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
<title>daoxinwen</title>
</head>

<body>
<%
sql="select top 15  * from allgonggao where title like '%��%' or leibie like '%��%' order by newid()"
rs.open sql,conn2,1,1
if rs.eof then
else
	k=0
	do while not rs.eof
	k=k+1
		sql2="select * from xinwentongzhi where biaoti='"&rs("title")&"'"
		rs2.open sql2,conn,3,3
		if rs2.eof then
			rs2.addnew
			rs2("biaoti")=rs("title")
			rs2("neirong")=rs("content")
			rs2("leibie")="��������"
			rs2("tianjiaren")="admin"
			rs2("dianjilv")=ndjl
			if k=1 then
				rs2("shouyetupian")="upload/1317085910921.jpg"
			end if
			if k=2 then
				rs2("shouyetupian")="upload/1317086069593.jpg"
			end if
			if k=3 then
				rs2("shouyetupian")="upload/1317086056687.jpg"
			end if
			if k=4 then
				rs2("shouyetupian")="upload/1317085936937.jpg"
			end if
			if k=5 then
				rs2("shouyetupian")="upload/1317085922265.jpg"
			end if
			rs2.update
			rs2.close
		else
			rs2.close
		end if