Dim comeurl
Dim TruePassWord
session("flag")=empty
Dvbbs.LoadTemplates("login")
Dvbbs.stats=template.Strings(1)
Dvbbs.Nav()
Dvbbs.Head_var 0,0,template.Strings(0),"login.asp"
TruePassWord=Dvbbs.Createpass
Select Case request("action")
Case "chk"
Dvbbs_ChkLogin
Dvbbs.Showerr()
Case "chk0379"
Dvbbs_ChkLogin0379
Dvbbs.Showerr()
Case "redir"
redir
Dvbbs.Showerr()
Case "save_redir_reg"
call save_redir_reg()
Dvbbs.Showerr()
Case Else
Main
End Select
Dvbbs.ActiveOnline
Dvbbs.Footer()

谢谢！！！你不是苦力，你是大家的仰慕者。你是无私的，热心的！

你不是苦力，你是大家的仰慕者。你是无私的，热心的！

=============================================

说的俺脊梁骨冒汗

说的比较容易理解一点就是当action这个参数是chk0379的时候就调用Dvbbs_ChkLogin0379和Dvbbs.Showerr()两个函数。

当然这两个函数都是动网定义的，有什么功能可以继续去研究动网的代码。

可以直接把DVBBS在DW里定义成站点，然后用到什么的时候就在站点的源码中搜索，这样效率高

呵呵！！！  多谢！！