reg.asp

来自「仿雅虎论坛静态生成html版 后台管理：admin/admin.asp 用户」· ASP 代码 · 共 19 行

<!--#include file="../conn.asp"-->
<!--#include file="../board/const.asp"-->
<!--#include file="BtBBS_FUN.asp"-->
<!--#include file="Crypt.asp"--><%
 login=Request.QueryString("login")
 StarTime = Timer():AccessNum=0
 if Request.QueryString("Accect")="" then
     Call JCC_Board_Top
     call Login_EN
     DIM myFile
     Const ForReading = 1
     myFile = Server.MapPath("xy.ASP")
     SET fileStreamObj = CreateObject("Scripting.FileSystemObject")
     SET textStream = fileStreamObj.OpenTextFile(myFile,ForReading,False)
     filenl=textStream.ReadAll()
     textStream.Close()
     set textStream=nothing
     set fileStreamObj=nothing
     Response.Write "</form><form name=filexg action=reg.asp?Accect=xy method=post>"
     Response.Write "<table width=743 align=center><tr><td><a href=index.asp><font class=NavColor>阶韭