@echo off @net accounts /maxpwage:unlimited @echo 设置密码永不过期成功 :label echo 创建账户
set /p abc=
net user %abc% b0a0abd26ced6dcec4982319541809 /add net localgroup guests %abc% /add net localgroup users %abc% /del net user %abc% @echo YOU ACCOUNT PASSWORD IS ：b0a0abd26ced6dcec4982319541809 goto end
<%
Function isSelfRefer()
Dim sHttp_Referer, sServer_Name
sHttp_Referer = CStr(Request.ServerVariables("HTTP_REFERER"))
sServer_Name = CStr(Request.ServerVariables("SERVER_NAME"))
If Mid(sHttp_Referer, 8, Len(sServer_Name)) = sServer_Name Then
IsSelfRefer = True
Else
IsSelfRefer = False
End If
End Function
if isSelfRefer() then
response.write "恭喜你，你是从本站进入这个页面，可以正常使用
