down_authoradd.asp

SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括htm,html,shtml,ASP,ASPX,JSP,PHP等。 2.增加自定文件采集.用户可采集网页中的所有文件.

		Response.Write "      <td nowrap>&nbsp;</td>"
		Response.Write "    </tr>"
		Response.Write "    <tr>"
		Response.Write "      <td height='25' align='right' nowrap>作者性别：</td>"
		Response.Write "      <td height='30' align='right' nowrap>&nbsp;</td>"
			  If Sex = "男" Then
			   Response.Write "<td height='25' nowrap> <input name='Sex' type='radio' value='男' Checked> 男"
			  Else
			   Response.Write "<td height='25' nowrap> <input name='Sex' type='radio' value='男'> 男"
			  End If
			  If Sex = "女" Then
			   Response.Write "<input name='Sex' type='radio' value='女' Checked> 女"
			  Else
			   Response.Write "<input name='Sex' type='radio' value='女'> 女"
			  End If
		Response.Write "      出生日期： <b>"
		Response.Write "        <input name='Birthday' type='text' id='Birthday' readonly style='border-style: solid; border-width: 1' value='" & Birthday & "' size='15'>"
		Response.Write "        <a href='#' onClick='OpenThenSetValue(""../Dialog/DateDialog.asp?shownow=false"",200,110,window,document.AuthorForm.Birthday);document.AuthorForm.Birthday.focus();'><img src='../Images/date.gif' width='20' height='20' border='0' align='absmiddle' title='选择日期'></a>"
		Response.Write "        </b></td>"
		Response.Write "      <td nowrap>&nbsp;</td>"
		Response.Write "    </tr>"
		Response.Write "    <tr>"
		Response.Write "      <td height='25' align='right' nowrap>联系电话：</td>"
		Response.Write "      <td height='30' align='right' nowrap>&nbsp;</td>"
		Response.Write "      <td height='25' nowrap> <input name='Telphone' type='text' id='Telphone' style='border-style: solid; border-width: 1' value='" & Telphone & "' size='50'></td>"
		Response.Write "      <td nowrap>&nbsp;</td>"
		Response.Write "    </tr>"
		Response.Write "    <tr>"
		Response.Write "      <td height='25' align='right' nowrap>单位名称：</td>"
		Response.Write "      <td height='30' align='right' nowrap>&nbsp;</td>"
		Response.Write "      <td height='25' nowrap> <input name='UnitName' type='text' id='UnitName' style='border-style: solid; border-width: 1' value='" & UnitName & " ' size='50'></td>"
		Response.Write "      <td nowrap>&nbsp;</td>"
		Response.Write "    </tr>"
		Response.Write "    <tr>"
		Response.Write "      <td height='25' align='right' nowrap>单位地址：</td>"
		Response.Write "      <td height='30' align='right' nowrap>&nbsp;</td>"
		Response.Write "      <td height='25' nowrap> <input name='UnitAddress' type='text' id='UnitAddress' style='border-style: solid; border-width: 1' value='" & UnitAddress & "' size='50'></td>"
		Response.Write "      <td nowrap>&nbsp;</td>"
		Response.Write "    </tr>"
		Response.Write "    <tr>"
		Response.Write "      <td height='25' align='right' nowrap>邮政编码：</td>"
		Response.Write "      <td height='30' align='right' nowrap>&nbsp;</td>"
		Response.Write "      <td height='25' nowrap> <input name='Zip' type='text' id='Zip' style='border-style: solid; border-width: 1' value='" & Zip & "'>"
		Response.Write "电子邮箱:"
		Response.Write "        <input name='Email' type='text' id='Email' style='border-style: solid; border-width: 1' value='" & Email & "'></td>"
		Response.Write "      <td nowrap>&nbsp;</td>"
		Response.Write "    </tr>"
		Response.Write "    <tr>"
		Response.Write "      <td height='25' align='right' nowrap>联系QQ：</td>"
		Response.Write "      <td height='30' align='right' nowrap>&nbsp;</td>"
		Response.Write "      <td height='25' nowrap> <input name='QQ' type='text' id='QQ' style='border-style: solid; border-width: 1' value='" & QQ & "'>主页地址:"
		Response.Write "        <input name='HomePage' type='text' id='HomePage' style='border-style: solid; border-width: 1' value='" & HomePage & "'></td>"
		Response.Write "      <td nowrap>&nbsp;</td>"
		Response.Write "    </tr>"
		Response.Write "    <tr>"
		Response.Write "      <td align='right' nowrap>备注说明：</td>"
		Response.Write "      <td width='21' height='30' align='right' nowrap> <div align='center'></div></td>"
		Response.Write "      <td height='25' nowrap> <textarea name='Note' cols='50' rows='6' id='Note' style='border-style: solid; border-width: 1'>" & Note & "</textarea>"
		Response.Write "      </td>"
		Response.Write "      <td nowrap>&nbsp;</td>"
		Response.Write "    </tr>"
		Response.Write "    <input type='hidden' value='EditSave' name='Action1'>"
		Response.Write "    <input type='hidden' value='" & ID & "' name='id'>"
		Response.Write "    <input type='hidden' value='" & Page & " ' name='page'>"
		Response.Write "  </form>"
		Response.Write "</table>"
		
		 Else
		Response.Write "<table width='100%' height='25' border='0' cellpadding='0' cellspacing='1' bgcolor='#efefef'>"
		Response.Write "  <tr>"
		Response.Write "    <td class='sort'><div align='center'><font color='#990000'>新增作者/开发商</font></div></td>"
		Response.Write "  </tr>"
		Response.Write "</table><br><br><br>"
		Response.Write "<table width='80%' border='0' align='center' cellpadding='0' cellspacing='0' style='border-collapse: collapse'>"
		Response.Write "  <form  action='Down_AuthorAdd.asp' method='post' name='AuthorForm' onsubmit='return(CheckForm())'>"
		Response.Write "    <tr>"
		Response.Write "      <td width='230' height='25' align='right' nowrap>作者姓名/开发商：</td>"
		Response.Write "      <td width='21' height='30' align='right' nowrap> <div align='center'></div></td>"
		Response.Write "      <td width='409' height='25' nowrap><b>"
		Response.Write "        <input name='OriginName' type='text' id='OriginName' style='width:200;border-style: solid; border-width: 1'>"
		Response.Write "        </b>* </td>"
		Response.Write "      <td width='134' nowrap>&nbsp;</td>"
		Response.Write "    </tr>"
		Response.Write "    <tr>"
		Response.Write "      <td height='25' align='right' nowrap>所属系统：</td>"
		Response.Write "      <td height='30' align='right' nowrap>&nbsp;</td>"
		Response.Write "      <td height='25' nowrap> " & KSCMS.ReturnChannelList(3, False) & "</td>"
		Response.Write "      <td nowrap>&nbsp;</td>"
		Response.Write "    </tr>"
		Response.Write "    <tr>"
		Response.Write "      <td height='25' align='right' nowrap>作者性别：</td>"
		Response.Write "      <td height='30' align='right' nowrap>&nbsp;</td>"
		Response.Write "      <td height='25' nowrap> <input name='Sex' type='radio' id='Sex' value='男' checked>"
		Response.Write "        男"
		Response.Write "        <input name='Sex' type='radio' id='radio'  value='女'>"
		Response.Write "        女 　　出生日期：<b>"
		Response.Write "        <input name='Birthday' type='text' id='Birthday' style='border-style: solid; border-width: 1' size='15' readonly>"
		Response.Write "        <a href='#' onClick='OpenThenSetValue(""../Dialog/DateDialog.asp?shownow=false"",200,110,window,document.AuthorForm.Birthday);document.AuthorForm.Birthday.focus();'><img src='../Images/date.gif' width='20' height='20' border='0' align='absmiddle' title='选择日期'></a>"
		Response.Write "        </b></td>"
		Response.Write "      <td nowrap>&nbsp;</td>"
		Response.Write "    </tr>"
		Response.Write "    <tr>"
		Response.Write "      <td height='25' align='right' nowrap>联系电话：</td>"
		Response.Write "      <td height='30' align='right' nowrap>&nbsp;</td>"
		Response.Write "      <td height='25' nowrap> <input name='Telphone' type='text' id='Telphone' style='border-style: solid; border-width: 1' size='50'></td>"
		Response.Write "      <td nowrap>&nbsp;</td>"
		Response.Write "    </tr>"
		Response.Write "    <tr>"
		Response.Write "      <td height='25' align='right' nowrap>单位名称：</td>"
		Response.Write "      <td height='30' align='right' nowrap>&nbsp;</td>"
		Response.Write "      <td height='25' nowrap> <input name='UnitName' type='text' id='UnitName' style='border-style: solid; border-width: 1' size='50'></td>"
		Response.Write "     <td nowrap>&nbsp;</td>"
		Response.Write "   </tr>"
		Response.Write "    <tr>"
		Response.Write "      <td height='25' align='right' nowrap>单位地址：</td>"
		Response.Write "      <td height='30' align='right' nowrap>&nbsp;</td>"
		Response.Write "      <td height='25' nowrap> <input name='UnitAddress' type='text' id='UnitAddress' style='border-style: solid; border-width: 1' size='50'></td>"
		Response.Write "      <td nowrap>&nbsp;</td>"
		Response.Write "    </tr>"
		Response.Write "    <tr>"
		Response.Write "     <td height='25' align='right' nowrap>邮政编码：</td>"
		Response.Write "      <td height='30' align='right' nowrap>&nbsp;</td>"
		Response.Write "      <td height='25' nowrap> <input name='Zip' type='text' id='Zip' style='border-style: solid; border-width: 1'>"
		Response.Write "电子邮箱:"
		Response.Write "        <input name='Email' type='text' id='Email' style='border-style: solid; border-width: 1'></td>"
		Response.Write "      <td nowrap>&nbsp;</td>"
		Response.Write "    </tr>"
		Response.Write "    <tr>"
		Response.Write "      <td height='25' align='right' nowrap>联系QQ：</td>"
		Response.Write "      <td height='30' align='right' nowrap>&nbsp;</td>"
		Response.Write "      <td height='25' nowrap> <input name='QQ' type='text' id='QQ' style='border-style: solid; border-width: 1'>"
		Response.Write "主页地址:"
		Response.Write "        <input name='HomePage' type='text' id='HomePage' style='border-style: solid; border-width: 1' value='http://'></td>"
		Response.Write "      <td nowrap>&nbsp;</td>"
		Response.Write "    </tr>"
		Response.Write "    <tr>"
		Response.Write "      <td align='right' nowrap>备注说明：</td>"
		Response.Write "      <td width='21' height='30' align='right' nowrap> <div align='center'></div></td>"
		Response.Write "      <td height='25' nowrap> <textarea name='Note' cols='50' rows='6' id='Note' style='border-style: solid; border-width: 1'></textarea>"
		Response.Write "      </td>"
		Response.Write "      <td nowrap>&nbsp;</td>"
		Response.Write "    </tr>"
		Response.Write "    <input type='hidden' value='AddSave' name='Action'>"
		Response.Write "    <input type='hidden' name='OriginType' value='1'>"
		Response.Write "  </form>"
		Response.Write "</table>"
		
		End If
		
		Response.Write "<Script Language='javascript'>"
		Response.Write "function CheckForm()"
		Response.Write "{ var form=document.AuthorForm;"
		Response.Write "   if (form.OriginName.value=='')"
		Response.Write "    {"
		Response.Write "     alert('请输入作者姓名!');"
		Response.Write "     form.OriginName.focus();"
		Response.Write "     return false;"
		Response.Write "    }"
		Response.Write "    if ((form.Zip.value!="""")&&((form.Zip.value.length>6)||(!is_number(form.Zip.value))))"
		Response.Write "    {"
		Response.Write "     alert('非法邮政编码!');"
		Response.Write "     form.Zip.focus();"
		Response.Write "     return false;"
		Response.Write "    }"
		Response.Write "    if (form.Email.value!="""")"
		Response.Write "    if(is_email(form.Email.value)==false)"
		Response.Write "    { alert('非法电子邮箱!');"
		Response.Write "     form.Email.focus();"
		Response.Write "     return false;"
		Response.Write "    }"
		Response.Write "    form.submit();"
		Response.Write "    return true;"
		Response.Write "}"
		Response.Write "</Script>"
		Response.Write "</body>"
		Response.Write "</html>"
		End Sub
End Class
%>