<% Option Explicit %>
<!--#include file="inc/Cls_DB.asp" -->
<!--#include file="../../Inc/Const.asp" -->
<%
'==============================================================================
'软件名称：风讯新闻采集系统V1.0
'最新更新：2004.12
'==============================================================================
'商业注册联系：028-85098980-601,602 技术支持：028-85098980-606、607,客户支持：608
'产品咨询QQ：159410,655071,66252421
'技术支持:所有程序使用问题，请提问到bbs.foosun.net我们将及时回答您
'程序开发：风讯开发组 & 风讯插件开发组
'论坛支持：风讯在线论坛(http://bbs.foosun.net)
'官方网站：www.Foosun.net  演示站点：test.cooin.com    
'网站建设专区：www.cooin.com
'==============================================================================
'免费版本请在新闻首页保留版权信息，并做上本站LOGO友情连接
'==============================================================================
Dim DBC,UpdateConn,Conn
Set DBC = New DataBaseClass
DBC.ConnStr = "DBQ=" + server.mappath("FooSunData/Update.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set UpdateConn = DBC.OpenConnection()
DBC.ConnStr = "DBQ=" + Server.MapPath(DataBaseConnectStr) + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set Conn = DBC.OpenConnection()
Set DBC = Nothing
'判断权限
%>
<!--#include file="../../Inc/Session.asp" -->
<!--#include file="../../Inc/CheckPopedom.asp" -->
<%
if Not JudgePopedomTF(Session("Name"),"P1405") then Call ReturnError1()
'判断权限结束
Dim MainID,DescriptionStr
MainID = Request("MainID")
if MainID = "" then
	Set UpdateConn = Nothing
	Response.Write("<script>alert('参数传递出错');window.location.href='UpDateManage.asp'</script>")  
	Response.End
end if

Dim RSUpdateObj
Set RSUpdateObj = UpdateConn.Execute("Select Description from DBSO where MainID='" & MainID & "'")
if RSUpdateObj.Eof then
	DescriptionStr = ""
else
	DescriptionStr = RSUpdateObj("Description")
end if
Set RSUpdateObj = Nothing
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>添加数据库转换规则</title>
</head>
<link href="inc/Collect.css" rel="stylesheet">
<body topmargin="0" leftmargin="0">
<table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#cccccc">
  <form name="UpdateForm" method="get" action="UpdateAddOneStep.asp">
    <tr bgcolor="#E4E4E4"> 
      <td height="30" background="images/Collect_bg.gif"><font color="#FF0000"><strong>数据转移规则---第一步---描述</strong></font></td>
    </tr>
    <tr bgcolor="#F3F3F3"> 
      <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td width="50">描述</td>
            <td colspan="2"> <textarea style="width:100%;" name="Description" rows="6"><% = DescriptionStr %></textarea></td>
          </tr>
        </table></td>
    </tr>
    <tr bgcolor="#F3F3F3"> 
      <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td width="50%"> <div align="center"> 
                <input type="hidden" name="TestFlag" value="0">
                <input type="hidden" name="Submit" value="Add">
                <input type="hidden" name="MainID" value="<% = MainID %>">
              </div></td>
            <td> <div align="right">
                <input name="Submitaa" type="button" onClick="CheckDescription();" id="Submitaa" value="下一步">
              </div></td>
          </tr>
        </table></td>
    </tr>
  </form>
</table>
</body>
</html>
<%
Set UpdateConn = Nothing
%>
<script language="JavaScript">
function CheckDescription()
{
	if (document.UpdateForm.Description.value=='')
	{
		if (!confirm('描述为空，确定要提交数据吗？')) return;
	}
	document.UpdateForm.submit();
}
</script>