<!--#include file="conn.asp"-->
<%code = request("code")
zt = request("zt")
ly = request("ly")

if code = "GCBBS"&date and zt <>"" then
	sql = "select * from yrwl_tb_lt order by id desc"
	set rs = server.createobject("adodb.recordset")
	rs.open sql,conn,1,3
	if sjk <> "" then
		if rs.eof then
			id = "1"
		else
			id = cstr(rs("id")+1)
		end if
	end if
	rs.addnew
	if sjk = "" then
		if rs.eof then
			id = "1"
		else
			id = cstr(rs("id"))
		end if
	end if
	ip = request.servervariables("remote_addr")
	fname = "tb/" & id & replace(cstr(date()),"-","") & replace(cstr(time()),":","") & ".htm"
	rs("yhm") = request("yhm")
	rs("ly") = request("ly")
	rs("dj") = 0
	rs("zd") = "5"
	rs("ip") = ip
	rs("furl") = fname
	rs("hf") = 0
	rs("zid") = "s"
	rs("zhhf") = jdsj & "   "&request("yhm")
	rs("zt") = request("zt")
	rs("sj") = jdsj
	rs.update
	rs.close
	
	''读文件
	set fso = Server.Createobject("Scripting.FileSystemObject")
	set file=fso.opentextfile(Server.mappath("tb.htm"),1,False)
	do while file.AtEndOfStream<>true
		wjnrc = wjnrc + file.ReadLine() & chr(13)
	loop
	file.close
	set file = nothing
	set fso = nothing
	call tohtml(yhm,jdsj,ip,zt,ly,id,"",wjnrc,"",fname)

end if%>