<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="./Connections/wzh.asp" -->
<%
' *** Edit Operations: declare variables

Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: set variables

If (CStr(Request("MM_insert")) = "form1") Then

  MM_editConnection = MM_wzh_STRING
  MM_editTable = "wangzhitijiao"
  MM_editRedirectUrl = "tijiaochg.htm"
  MM_fieldsStr  = "wangzhi|value|zhanming|value|fangshi|value|fenlei|value|liuliang|value|miaoshu|value|jianyi|value"
  MM_columnsStr = "wangzhi|',none,''|zhanming|',none,''|fangshi|',none,''|fenlei|',none,''|liuliang|',none,''|miaoshu|',none,''|jianyi|',none,''"

  ' create the MM_fields and MM_columns arrays
  MM_fields = Split(MM_fieldsStr, "|")
  MM_columns = Split(MM_columnsStr, "|")
  
  ' set the form values
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
  Next

  ' append the query string to the redirect URL
  If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
    If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
      MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
    Else
      MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
    End If
  End If

End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it

Dim MM_tableValues
Dim MM_dbValues

If (CStr(Request("MM_insert")) <> "") Then

  ' create the sql insert statement
  MM_tableValues = ""
  MM_dbValues = ""
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_formVal = MM_fields(MM_i+1)
    MM_typeArray = Split(MM_columns(MM_i+1),",")
    MM_delim = MM_typeArray(0)
    If (MM_delim = "none") Then MM_delim = ""
    MM_altVal = MM_typeArray(1)
    If (MM_altVal = "none") Then MM_altVal = ""
    MM_emptyVal = MM_typeArray(2)
    If (MM_emptyVal = "none") Then MM_emptyVal = ""
    If (MM_formVal = "") Then
      MM_formVal = MM_emptyVal
    Else
      If (MM_altVal <> "") Then
        MM_formVal = MM_altVal
      ElseIf (MM_delim = "'") Then  ' escape quotes
        MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
      Else
        MM_formVal = MM_delim + MM_formVal + MM_delim
      End If
    End If
    If (MM_i <> LBound(MM_fields)) Then
      MM_tableValues = MM_tableValues & ","
      MM_dbValues = MM_dbValues & ","
    End If
    MM_tableValues = MM_tableValues & MM_columns(MM_i)
    MM_dbValues = MM_dbValues & MM_formVal
  Next
  MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

  If (Not MM_abortEdit) Then
    ' execute the insert
    Set MM_editCmd = Server.CreateObject("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_editConnection
    MM_editCmd.CommandText = MM_editQuery
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

    If (MM_editRedirectUrl <> "") Then
      Response.Redirect(MM_editRedirectUrl)
    End If
  End If

End If
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>网站提交－－网址大全</title>
<script type="text/JavaScript">
<!--
function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_validateForm() { //v4.0
  var i,p,q,nm,test,num,min,max,errors='',args=MM_validateForm.arguments;
  for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args[i]);
    if (val) { nm=val.name; if ((val=val.value)!="") {
      if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');
        if (p<1 || p==(val.length-1)) errors+='- '+nm+' must contain an e-mail address.\n';
      } else if (test!='R') { num = parseFloat(val);
        if (isNaN(val)) errors+='- '+nm+' must contain a number.\n';
        if (test.indexOf('inRange') != -1) { p=test.indexOf(':');
          min=test.substring(8,p); max=test.substring(p+1);
          if (num<min || max<num) errors+='- '+nm+' must contain a number between '+min+' and '+max+'.\n';
    } } } else if (test.charAt(0) == 'R') errors += '- '+nm+' is required.\n'; }
  } if (errors) alert('The following error(s) occurred:\n'+errors);
  document.MM_returnValue = (errors == '');
}
//-->
</script>
<style type="text/css">
<!--
body {
	margin-top: 6px;
}
.STYLE3 {font-size: 14px}
.STYLE4 {font-size: 13px}
a:link {
	text-decoration: none;
	color: #000000;
}
a:visited {
	text-decoration: none;
	color: #000000;
}
a:hover {
	text-decoration: underline;
	color: #FF0000;
}
a:active {
	text-decoration: none;
	color: #FF0000;
}
-->
</style></head>

<body>
<table width="960" height="63" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr> 
        <td width="200" height="60"><img src="/i/logo.gif" alt="网址大全"    width="170" height="60" border="0">        </td>
        <td width="148" height="60" align="center">
        <div align="center">
<script src="/ad/adtop148.js"></script>
        </div></td>
        <td width="480" align="center">
<IFRAME marginWidth=0 marginHeight=0 src="/ad/ad.htm" frameBorder=0 width=468 scrolling=no height=60 allowTransparency></IFRAME>
</td>
        <td width=126 height=60 align="right">
      <div align="center">
<iframe id="baiduSpFrame" border="0" vspace="0" hspace="0" marginwidth="0" marginheight="0" framespacing="0" frameborder="0" scrolling="no" width="120" height="60" src="http://spcode.baidu.com/spcode/spstyle/style2002.jsp?tn=xue666_sp&ctn=0&styleid=2002"></iframe>
        </div></td>
</table>
<table width="900" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="3"></td>
  </tr>
</table>
<table width="960" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#77B4EA">
  <tr>
    <td height="3"></td>
  </tr>
</table>
<table width="900" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="3"></td>
  </tr>
</table>
<table width="960" height="23" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#DCF1FA" >
  <tr>
    <td width="1%" >&nbsp;</td>
    <td ><span class="STYLE4">当前位置：<a href="./">首 页</a> > 网站提交</span></td>
  </tr>
</table>
<table width="900" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="3"></td>
  </tr>
</table>
<table width="960" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#77B4EA">
  <tr>
    <td height="3"></td>
  </tr>
</table>
<table width="900" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="3"></td>
  </tr>
</table>
<table width="960" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#AAD0F2">
        <tr>
          <td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="0" cellspacing="2">
              <tr>
                <td bgcolor="#F8FCFE" class="dahao" onfocus="MM_validateForm('wangzhi','','R','zhanming','','R','fangshi','','R','fenlei','','R','liuliang','','R','miaoshu','','R','jianyi','','R');return document.MM_returnValue" onsubmit="MM_validateForm('wangzhi','','R','zhanming','','R','fangshi','','R','fenlei','','R','liuliang','','R','miaoshu','','R','jianyi','','R');return document.MM_returnValue"><form ACTION="<%=MM_editAction%>" METHOD="POST" name="form1" id="form1" onSubmit="MM_validateForm('wangzhi','','R','zhanming','','R','fangshi','','R','fenlei','','R','liuliang','','R','miaoshu','','R','jianyi','','R');return document.MM_returnValue">
            <table width="730" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td height="30" colspan="2" align="center" class="dahao STYLE3">网址大全网站提交表(所有项均为必填项)</td>
                </tr>
              <tr>
                <td align="right"><span class="STYLE3">推荐网址：</span></td>
                <td height="30"><span class="STYLE3">
                  <label>
                    <input name="wangzhi" type="text" id="wangzhi" value="http://" size="33" />
                    </label>
                </span> </td>
              </tr>
              <tr>
                <td align="right"><span class="STYLE3">网站名称：</span></td>
                <td height="30"><span class="STYLE3">
                  <label>
                    <input name="zhanming" type="text" id="zhanming" size="33" />
                    </label>
                </span> </td>
              </tr>
              <tr>
                <td align="right"><span class="STYLE3">联系方式：</span></td>
                <td height="30">
                  <span class="STYLE3">
                  <label>
                      <input name="fangshi" type="text" id="fangshi" size="23" />
                    </label>
                  （可选填，如：Email、QQ、电话等）</span></td>
              </tr>
              <tr>
                <td align="right"><span class="STYLE3">推荐分类：</span></td>
                <td height="30"><span class="STYLE3">
                  <label>
                    <input name="fenlei" type="text" id="fenlei" size="23" />
                    </label>
                </span> <span class="STYLE3">
                <label> </label>
（依据贵站定位写明详细分类 如“音乐MP3-在线音乐”）</span></td>
              </tr>
              <tr>
                <td align="right"><span class="STYLE3">日访问量：
                    <label> </label>
                </span></td>
                <td height="38"><span class="STYLE3">
                  <label>
                    <input name="liuliang" type="text" id="liuliang" value="" size="23" />
                    </label>
                </span> </td>
              </tr>
              <tr>
                <td align="right" valign="top"><span class="STYLE3">网站描述：</span></td>
                <td height="76" valign="top"><span class="STYLE3">
                  <label>
                    <textarea name="miaoshu" cols="56" rows="4" id="miaoshu"></textarea>
                    </label>
                </span> </td>
              </tr>
              <tr>
                <td align="right" valign="top"><span class="STYLE3">给网址大全的建议：</span></td>
                <td height="70" valign="top"><span class="STYLE3">
                  <label>
                    <textarea name="jianyi" cols="56" rows="4" id="jianyi"></textarea>
                    </label>
                </span> </td>
              </tr>
              <tr>
                <td align="right" valign="top"><span class="STYLE3"></span></td>
                <td height="12"><span class="STYLE3">如果您的建议对网址大全有建设性帮助，我们会依照收录标准提前审核您的网站。(请认真填写)</span></td>
              </tr>
              <tr>
                <td height="25" colspan="2" align="center"><span class="STYLE3">
                  <label>
                    <input type="submit" name="Submit" value="提 交" />
                     &nbsp;
                     <input type="reset" name="Submit2" value="重 置" />
                    </label>
                </span> </td>
              </tr>
            </table>
                
            <input type="hidden" name="MM_insert" value="form1">
                </form>
                  <table width="100%" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td width="5%">&nbsp;</td>
                    <td><p><span class="STYLE3"><strong>网址大全收录原则：</strong><b><br />
                      <br />
                      </b>&nbsp;1、不收录有反动、色情、赌博等不良内容或提供不良内容链接的网站，以及网站名称或内容违反国家有关法规的网站；<br />
                    <br />
&nbsp;2、不收录无实用内容的网站，您的网站正在建设中，尚无完整内容，请不必现在登录，欢迎您在网站建设完成后再来登陆；<br />
  <br />
&nbsp;3、不收录含有病毒、木马，弹出插件或恶意更改他人电脑设置的网站及有多个弹窗广告的网站；<br />
  <br />
&nbsp;4、对挂靠别人的网站下的网站 ( 即没有自己单独域名的网站 )，本站将不予收录；<br />
                    <br />
&nbsp;5、不收录在正常情况下无法正常连接或浏览的网站；<br />
                    <br />
&nbsp;6、本站保留收录决定权以及在本站网址数据库中相关内容的编辑决定权。</span></p>                    </td>
                  </tr>
                </table></td>
              </tr>
            </table>            </td>
        </tr>
</table>
<table width="900" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="5"></td>
  </tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td align="center">     <a href="/" target="_self"><br>
        <img src="/images/return.gif" width="60" height="30" alt="返回本站首页" border="0"></a></td>
      </tr>
</table>
</body>
</html>
