<%'============================================================
' Copyright 2007-09 燃点真情. All Rights Reserved.
' Last Update: 2008-3-22 13:28
' ADD:wap.nowtx.cn
' E-Mail: xivn@163.com QQ:531233814
'============================================================
Call Head()
Response.write ""
Response.write ""
if myid=0 then
Response.write "请您先登陆..."& chr(13)
Response.write "
返回" & chr(13)
Response.write "
"
Response.end
end if
dim id,ids,p
id=request("id")
ids=request("class")
p=request("p")
if id="" or isnumeric(id)=False then
Call Error("ID无效！")
end if
if ids="" or isnumeric(ids)=False then
Call Error("ID无效！")
end if
set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select * from sms where id="&id,conn,1,1
set rs1=Server.CreateObject("ADODB.Recordset")
rs1.open"select * from WzClass where classid="&rs("classid"),conn,1,1
pid=rs1("pid")
rs1.close
set rs1=nothing
if clng(pid)<>0 and keys<>1 then
if request("action")<>"ok" then
response.write "文章:"&rs("title")
response.write "
下载此文章TXT需用"&abs(pid)&getcent&",确定要下载吗？"
response.write "
是的"
Response.write "
取消"
response.write ""
response.end
end if
if abs(myjb)",chr(13) & chr(10))
str=replace(str,"(br)",chr(13) & chr(10))
str=replace(str,"[br]",chr(13) & chr(10))
str=replace(str,"\\",chr(13) & chr(10))
usbcode=str
end function
yd = yd & ubb(rs("title"))
yd = yd & chr(13) & chr(10)
yd = yd & "-------"
yd = yd & chr(13) & chr(10)
yd = yd & rs("YD_date")
yd = yd & chr(13) & chr(10)
yd = yd &"来源:"& request.ServerVariables("Server_NAME")
yd = yd & chr(13) & chr(10)
yd = yd & "-------"
yd = yd & chr(13) & chr(10)
yd=yd &usbcode(rs("test"))
yd = yd & chr(13) & chr(10)
yd = yd & chr(13) & chr(10)
yd = yd & "-------"
yd = yd & chr(13) & chr(10)
yd = yd & "本TXT下载于"&now()
yd = yd & chr(13) & chr(10)
yd = yd & "http://"&request.ServerVariables("Server_NAME")
yd = yd & chr(13) & chr(10)
yd = yd & waptitle
yd = yd & chr(13) & chr(10)
set fs=server.CreateObject("scripting.FileSystemObject")
set xTextFile=fs.CreateTextFile(Server.MapPath("/wml/txtsms.txt"),1,true)
xTextFile.write(""&yd&"")
response.redirect"http://"&request.ServerVariables("Server_NAME")&"/wml/txtsms.txt"
rs.close
set rs=nothing
conn.close
set conn=nothing
%>