<% Dim Query_Badword,Form_Badword,f_i,Err_Message,Err_Web,f_name '------定义部份 头---------------------------------------------------------------------- Err_Message = 1 '处理方式：1=提示信息,2=转向页面,3=先提示再转向 Err_Web = "Default.Asp" '出错时转向的页面 Query_Badword="'∥and∥select∥update∥chr∥delete∥%20from∥;∥insert∥master.∥set∥chr(37)" '在这部份定义get非法参数,使用"∥"号间隔 '----- 对 get query 值 的过滤. if request.QueryString<>"" then Chk_badword=split(Query_Badword,"∥") FOR EACH Query_Name IN Request.QueryString for f_i=0 to ubound(Chk_badword) If Instr(LCase(request.QueryString(Query_Name)),Chk_badword(f_i))<>0 Then Select Case Err_Message Case "1" Response.Write "" Case "2" Response.Write "" Case "3" Response.Write "" End Select Response.End End If NEXT NEXT End if %> <% 'On Error Resume Next dim connstr,datapath,conn datapath="DataBase/db.mdb" connstr="Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & Server.mappath(datapath) Set conn=Server.CreateObject("ADODB.Connection") conn.open connstr %> <% Function findJS(frmName,errStr) Dim tmpArr Dim i '参数值 i=0 '获取错误列表，建立数组 tmpArr=Split(errStr,"|") '输出查询条件 Select Case tmpArr(i+1) Case "0" '必填的Text类型 findJS="if ((document."&frmName&"."&tmpArr(i)&".value)=="""")"&vbCrlf&_ "{"&vbCrlf&_ "window.alert ('"&tmpArr(i+2)&"');"&vbCrlf&_ "document."&frmName&"."&tmpArr(i)&".select();"&vbCrlf&_ "document."&frmName&"."&tmpArr(i)&".focus();"&vbCrlf&_ "return false;"&vbCrlf&_ "}"&vbCrlf '"else"&vbCrlf&_ '"return true;"&vbCrlf Exit Function Case "1" '必填的ListMenu类型 findJS="if ((document."&frmName&"."&tmpArr(i)&".value)=="""")"&vbCrlf&_ "{"&vbCrlf&_ "window.alert ('"&tmpArr(i+2)&"');"&vbCrlf&_ "document."&frmName&"."&tmpArr(i)&".focus();"&vbCrlf&_ "return false;"&vbCrlf&_ "}"&vbCrlf '"else"&vbCrlf&_ '"return true;"&vbCrlf Exit Function Case "2" '必须为数字的Text类型 findJS="if (isNaN(document."&frmName&"."&tmpArr(i)&".value))"&vbCrlf&_ "{"&vbCrlf&_ "window.alert ('"&tmpArr(i+2)&"');"&vbCrlf&_ "document."&frmName&"."&tmpArr(i)&".select();"&vbCrlf&_ "document."&frmName&"."&tmpArr(i)&".focus();"&vbCrlf&_ "return false;"&vbCrlf&_ "}"&vbCrlf '"else"&vbCrlf&_ '"return true;"&vbCrlf Exit Function Case "3" '必须为指定位数的Text类型 findJS="if (document."&frmName&"."&tmpArr(i)&".value.length="&tmpArr(i+3)&")"&vbCrlf&_ "{"&vbCrlf&_ "window.alert ('"&tmpArr(i+2)&"');"&vbCrlf&_ "document."&frmName&"."&tmpArr(i)&".select();"&vbCrlf&_ "document."&frmName&"."&tmpArr(i)&".focus();"&vbCrlf&_ "return false;"&vbCrlf&_ "}"&vbCrlf '"else"&vbCrlf&_ '"return true;"&vbCrlf Exit Function Case "4" '必须大于指定位数的Text类型 findJS="if (document."&frmName&"."&tmpArr(i)&".value.length<"&tmpArr(i+3)&")"&vbCrlf&_ "{"&vbCrlf&_ "window.alert ('"&tmpArr(i+2)&"');"&vbCrlf&_ "document."&frmName&"."&tmpArr(i)&".select();"&vbCrlf&_ "document."&frmName&"."&tmpArr(i)&".focus();"&vbCrlf&_ "return false;"&vbCrlf&_ "}"&vbCrlf '"else"&vbCrlf&_ '"return true;"&vbCrlf Exit Function Case "5" '必须为Email的Text类型 findJS="if ((!emailReg.test(document."&frmName&"."&tmpArr(i)&".value))&&(document."&frmName&"."&tmpArr(i)&".value!=''))"&vbCrlf&_ "{"&vbCrlf&_ "window.alert ('"&tmpArr(i+2)&"');"&vbCrlf&_ "document."&frmName&"."&tmpArr(i)&".select();"&vbCrlf&_ "document."&frmName&"."&tmpArr(i)&".focus();"&vbCrlf&_ "return false;"&vbCrlf&_ "}"&vbCrlf '"else"&vbCrlf&_ '"return true;"&vbCrlf Exit Function Case "6" '必须为a-z或0-9的字符的Text类型 findJS="if ((!pwdReg.test(document."&frmName&"."&tmpArr(i)&".value))&&(document."&frmName&"."&tmpArr(i)&".value!=''))"&vbCrlf&_ "{"&vbCrlf&_ "window.alert ('"&tmpArr(i+2)&"');"&vbCrlf&_ "document."&frmName&"."&tmpArr(i)&".select();"&vbCrlf&_ "document."&frmName&"."&tmpArr(i)&".focus();"&vbCrlf&_ "return false;"&vbCrlf&_ "}"&vbCrlf '"else"&vbCrlf&_ '"return true;"&vbCrlf Exit Function Case "7" '确认密码和密码必须相等的Text类型 findJS="if ((document."&frmName&"."&tmpArr(i)&".value)!=(document."&frmName&"."&tmpArr(i+3)&".value))"&vbCrlf&_ "{"&vbCrlf&_ "window.alert ('"&tmpArr(i+2)&"');"&vbCrlf&_ "document."&frmName&"."&tmpArr(i)&".select();"&vbCrlf&_ "document."&frmName&"."&tmpArr(i)&".focus();"&vbCrlf&_ "return false;"&vbCrlf&_ "}"&vbCrlf '"else"&vbCrlf&_ '"return true;"&vbCrlf Exit Function End Select End Function Sub CheckForm_JS(frmName,errStr) Dim tmpArr Dim i Dim strShow '输出JS的字符串 '获取错误列表，建立数组 tmpArr=Split(errStr,",") '写JS for i=0 to UBound(tmpArr) if i<>0 then strShow=strShow&"else "&findJS(frmName,tmpArr(i)) else strShow=strShow&findJS(frmName,tmpArr(i)) end if next '输出 strShow="" Response.Write strShow End Sub %> <% Sub get1() Response.Write("") End Sub Sub get3() Response.Write("") End Sub q=12 sql="SELECT * FROM zm_question where id="&q Set rs=Server.CreateObject("ADODB.RECORDSET") rs.Open sql,conn,1,1 if rs.eof then Response.Write("") Response.End() end if name=rs("name") info=Replace(rs("info"),chr(13),"
") %> 湛江装修网免费赠品区有奖问答，上百份奖品等你拿
   



免费赠品区活动说明


2010年2月9日，湛江房产网免费赠品区上线。


为庆祝湛江房产网上线浏览量突破300万及普及房产家装建材用品知识，湛江房产网免费赠品区策划本次有奖问答活动，以答谢网友的关注，行业的支持。

有奖问答活动规则


一天内一个用户只可答题一次，请大家认真答题，答案尽量简洁扼要,请填写真实的姓名和手机号，中奖后以便能尽快联系到您。



奖品丰富，凡是参与的网友均能拿到丰富的奖品，满载而归，让大家过个开开心心的肥年！

具体开奖时间另外公布，敬请光注。


获奖名单将在湛江房产网（http://www.0759h.com）公布。


本次活动最终解释权归湛江房产网所有

   
   
今期已报名人数： 4名
   
陈珑
5月09日
李宁川
5月10日
管海燕
5月10日
谢晓宇
5月10日
   
   
   
   
   
   
   
   
   
   
   
   

 

  
湛江房产网免费有奖问答活动继续为大家火热进行中！

第30期公布时间：05月21日（周星期五为公布日）
上一期（第29期）的奖品如下：
 
 
   
   
 
不锈钢高锅
购物优惠券100元
子弹头杯
红日伞
红日围裙
  
   
这一期（第30期）的奖品如下：
 
 
 
   
 
精美卷尺+笔
  
烟灰缸+打火机
  
   
礼品数目：（先报先得，数量有限）
   
本期特级奖：价值为200元的购物优惠券 （名额1名）  
 
题目：  
   
本期的奖品由雷邦仕防水涂料提供
 
 
姓名
报名时间
获得的奖品
郭雪
04月13日
陈波
04月13日
李小品
04月19日
     
   
上期问题与答案：  
 
1、1、怎样才能使8个"8"相加得1000?
答案：（8+8+8+88+888=1000）
 
2、红日的产品的主要特色是哪几点？分别是______。
答案：（高效节能、环保健康、洁净卫生、安全可靠）
 
   
三棵树抗碱性封闭底漆
三棵树儿童健康宝
三棵树随易洗豪华墙面漆
小康型内墙漆
亚洲漆外墙漆
亚洲漆
亚洲漆
亚洲漆
家装防水涂料
瓷砖胶系列
工程防水浆料
雷邦仕腻子系列
本次专题由湛江房产网装修建材用品制作。