<SCRIPT LANGUAGE="vbScript">
Sub chexiao_OnClick
document.all.chexiao.value = "test"
End Sub
</script>
<body>
<%
set fs1=server.createobject("Scripting.FileSystemObject")
filepath=server.MapPath("gonggao.txt")
set txt=fs1.opentextfile(filepath)
gg=txt.readline
response.cookies("gg")=gg
response.cookies("gg").expires="2002/12/31"
txt.close
set fs1=nothing
set fs=server.createobject("Scripting.FileSystemObject")
filepath=server.MapPath("gonggao.txt")
set txt=fs.createtextfile(filepath,true)
txt.writeline(request("gonggao"))
txt.close
set fs=nothing
response.redirect "1.asp"
%>
set fs=server.createobject("Scripting.FileSystemObject")
filepath=server.MapPath("gonggao.txt")
set txt=fs.createtextfile(filepath,true)
txt.writeline(request("gonggao"))
txt.close
set fs=nothing
response.redirect "1.asp"
%>
<%
set fs1=server.createobject("Scripting.FileSystemObject")
filepath=server.MapPath("gonggao.txt")
set txt=fs1.opentextfile(filepath)
gg=txt.readline
response.cookies("gg")=gg
response.cookies("gg").expires="2002/12/31"
txt.close
set fs1=nothing
response.redirect "1.asp"
%>