'首先检验是否已经登陆网站
'不同的网站程序的检验方式和session值可能是不一样的
If session("username")="" And request("username")="" Then
 response.write("你还没有登陆，请先登陆网站<BR>")
 ......

'获取用户名
Dim username
username=session("username")
If username="" Then
 username=request("username")
End if
If username="" And debug Then
 username="kesion"
End if

如果要改成科讯的验证方式,应该怎么写呢