Question

网页模板过期的问题

<%

Dim Query_Badword,Form_Badword,i,Err_Message,Err_Web,name

'------?¨ò?2?·Y í·----------------------------------------------------------------------

Err_Message = 1 '′|àí·?ê?￡o1=ìáê?D??￠,2=×a?òò3??,3=?èìáê??ù×a?ò

Err_Web = "Err.Asp" '3?′íê±×a?òμ?ò3??

Query_Badword="'??and??select??update??chr??delete??%20from??;??insert??mid??master.??set??chr(37)??="

'?ú?a2?·Y?¨ò?get·?·¨2?êy,ê1ó?"??"o?????

Form_Badword="'??%??&??*??#??(??)??=" '?ú?a2?·Y?¨ò?post·?·¨2?êy,ê1ó?"??"o?????

'------?¨ò?2?·Y ?2-----------------------------------------------------------------------
'
On Error Resume Next

'----- ?? get query ?μ μ?1y??.

if request.QueryString<>"" then
Chk_badword=split(Query_Badword,"??")
FOR EACH Query_Name IN Request.QueryString
for i=0 to ubound(Chk_badword)
If Instr(LCase(request.QueryString(Query_Name)),Chk_badword(i))<>0 Then
Select Case Err_Message
Case "1"
Response.Write "<Script Language=JavaScript>alert('′?2?′í?ó￡?2?êy "&name&" μ??μ?D°üo?·?·¨×?·?′?￡?\n\n??2?òa?ú2?êy?D3???￡oand update delete ; insert mid master μè·?·¨×?·?￡?');window.close();</Script>"
Case "2"
Response.Write "<Script Language=JavaScript>location.href='"&Err_Web&"'</Script>"
Case "3"
Response.Write "<Script Language=JavaScript>alert('′?2?′í?ó￡?2?êy "&name&"μ??μ?D°üo?·?·¨×?·?′?￡?\n\n??2?òa?ú2?êy?D3???￡oand update delete ; insert mid master μè·?·¨×?·?￡?');location.href='"&Err_Web&"';</Script>"
End Select
Response.End
End If
NEXT
NEXT
End if

'-----?? post ±í μ￥?μμ?1y??.

if request.form<>"" then
Chk_badword=split(Form_Badword,"??")
FOR EACH name IN Request.Form
for i=0 to ubound(Chk_badword)
If Instr(LCase(request.form(name)),Chk_badword(i))<>0 Then
Select Case Err_Message
Case "1"
Response.Write "<Script Language=JavaScript>alert('3?′íá?￡?±íμ￥ "&name&" μ??μ?D°üo?·?·¨×?·?′?￡?\n\n??2?òa?ú±íμ￥?D3???￡o % & * # ( ) μè·?·¨×?·?￡?');window.close();</Script>"
Case "2"
Response.Write "<Script Language=JavaScript>location.href='"&Err_Web&"'</Script>"
Case "3"
Response.Write "<Script Language=JavaScript>alert('3?′íá?￡?2?êy "&name&"μ??μ?D°üo?·?·¨×?·?′?￡?\n\n??2?òa?ú±íμ￥?D3???￡o % & * # ( ) μè·?·¨×?·?￡?');location.href='"&Err_Web&"';</Script>"
End Select
Response.End
End If
NEXT
NEXT
end if
%>

高手给看看，哪里出问题了 ！！！！
上传到空间后，过了一段时间，1，2个礼拜的时间吧，就出现 您的系统试用已经到期，请尽快到官方网站联系客服,购买正版,防止丢失数据! 怎么把时间限制去掉啊 。。

Answer 1

破解它的程序啊！