<%
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("shujuku/discuss.mdb")
Conn.Open
set rsft=server.createobject("adodb.recordset")
set rsft1=server.createobject("adodb.recordset")
sql="select * from lyb where lyusername='"&session("username")&"'"
rsft.open sql,conn,3,3
dim ly,huifu,perid
ly=request.QueryString("ly")
huifu=request.Form("huifu")
if rsft("lyusername")<>session("lyusername") then
perid=1
end if
if rsft("lyusername")=session("lyusername") then
perid=0
end if
'response.write perid
sql1="insert into lyb(lytitle,lyusername,lynwords,lytime,lyperid) values(')"&ly&"','"&session("username")&"','"&huifu&"','"&now()&"','"&perid&"'"'貌似插入不了数据!
rsft1.open sql
rsft.close
rsft1.close
set rsft=nothing
set rsft1=nothing
'response.write sql
response.redirect("liulan.asp")
%>
我也不知道哪里错