web.asp

来自「模块及功能： 1.汽车新闻 分类.查询.翻页 2.出售信息 搜索.评」· ASP 代码 · 共 36 行

<%



 web=trim(request("web")) 
 if web <> "" or web <>"http://" then

%>
<%
if InStr(web,",") >= 1 OR  InStr(web,"%") >=1 OR InStr(web,"<") >=1 OR InStr(web,">") >=1  OR InStr(web,"=") >=1  OR InStr(web,"'") >=1 then%>
<b><font color="#FF0000">×</b>公司网址中不能有%、'、=、&lt;和&gt;等非法字符！&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>
<%
response.end
end if
%>
<%
if InStr(web,".") < 1 then

%>
<b><font color="#FF0000">×</b>公司网址的格式不正确，请重新填写！&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>
<%
response.end
end if
%>
<b><font color="#008000">√</font></b>
<%
else
%>
<b><font color="#008000">√</font></b>您的公司网址，可以不填！
<%
end if
%>