article_originadd.asp

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

		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(ChannelID, 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='Contact' type='text' id='Contact' style='width:200;border-style: solid; border-width: 1' value='" & Contact & "'></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='width:200;border-style: solid; border-width: 1' value='" & Telphone & "'></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='width:200;border-style: solid; border-width: 1' value='" & UnitName & "'></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='width:200;border-style: solid; border-width: 1' value='" & UnitAddress & "'></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 "主页地址:"
		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='Article_OriginAdd.asp' method='post' name='OrigArticlerm' 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(1, 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='Contact' type='text' id='Contact' style='width:200;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>联系电话：</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='width:200;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>单位名称：</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='width:200;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>单位地址：</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='width:200;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>邮政编码：</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='0'>"
		Response.Write "  </form>"
		Response.Write "</table>"
		 
		 End If
		 
		Response.Write "<Script Language='javascript'>"
		Response.Write "function CheckForm()"
		Response.Write "{ var form=document.OrigArticlerm;"
		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!='')&&(is_email(form.Email.value)==false))"
		Response.Write "    {"
		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
%>