create_ver.asp

功能强大的霸王插件源代码

<% Response.Buffer=True %>
<%
 id=session("user_id_hitpop")
 if isnull(id) then
  id=""
 end if
 if id="" then 
   response.Redirect("admin.asp")
   response.end
 end if 
%>
<!--#include file="articleconn.asp"-->
<!--#include file="base64.asp"-->
<%    
dim rs
dim sql
dim tmp
dim tmp1
htm_filename="pkver.htm"
'取版本号
sql="select * from sysdata"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
ver=rs.fields("ver")
msg=rs.fields("msg")
if isnull(msg) then
  msg=""
end if
tmp=escape(msg)
msg=enCode_base64(tmp)
msg=msg+"!!!!!"
rs.close
set rs=nothing
conn.close
set conn=nothing

filepath=server.mappath(".")
filename=filepath+"\"+htm_filename
'response.write filename
set fs=createobject("scripting.filesystemobject")
fs.createtextfile(filename)
set f=fs.getfile(filename)
Set ts = f.OpenAsTextStream(2,-2)
'写结尾标记
response.write htm_filename+"<br>"
sql=ver+"6,5,0,"+msg
response.write sql

ts.writeline(sql)
ts.close
set ts=nothing

response.end
%>