<!--#include file=../conn.asp-->
<!--#include file=../admin.asp-->
<!--#include file=config.asp-->
<%

call ling()
Call Head%>
<%If Request("SubmitFlag") <> "" Then

       
'----------------------------------------------------------------
'			生成config.asp文件
'----------------------------------------------------------------
dim YD_Config1,YD_File1
YD_File1= Server.MapPath("config.asp")'生成config.asp文件路径
YD_Config1="<%"
YD_Config1=YD_Config1+chr(13)&chr(10)&"YD_SQL_SERVERIP1="""&Request.Form("YD_SQL_SERVERIP1")&""""
YD_Config1=YD_Config1+chr(13)&chr(10)&"YD_SQL_PassWord1="""&Request.Form("YD_SQL_PassWord1")&""""
YD_Config1=YD_Config1+chr(13)&chr(10)&"YD_SQL_UserName1="""&Request.Form("YD_SQL_UserName1")&""""
YD_Config1=YD_Config1+chr(13)&chr(10)&"YD_Main_DatabaseName1="""&Request.Form("YD_Main_DatabaseName1")&""""
YD_Config1=YD_Config1+chr(13)&chr(10)&"datesql1="""&Request.Form("datesql1")&""""
YD_Config1=YD_Config1+chr(13)&chr(10)&"acc1="""&Request.Form("acc1")&""""
YD_Config1=YD_Config1+chr(13)&chr(10)&"%"&">"
Call CreatedTextFiles(YD_File1,YD_Config1)
call saycardd("配置成功")
Response.Write "成功设置！"
else
call saycardd("LOGO设置")

%>
自动图片采集设置<br/>

<%if saytk=1 then
Response.write "<form name=""form"" method=""post"" action=""sezhi.asp?SubmitFlag=true&amp;sid="&sid&"&amp;saytk="&saytk&""">"%>
数据库类型(1为ACCESS，0为MSSQL）:<input name="datesql1" type="text" value="<%=ubb1(datesql1)%>"/><br/>
数据库IP或数据库服务名:<input name="YD_SQL_SERVERIP1" type="text" value="<%=ubb1(YD_SQL_SERVERIP1)%>"/><br/>
登录数据库用户名:<input name="YD_SQL_UserName1" type="text" value="<%=ubb1(YD_SQL_UserName1)%>"/><br/>
登录数据库密码:<input name="YD_SQL_PassWord1" type="text" value="<%=ubb1(YD_SQL_PassWord1)%>"/><br/>
主数据库名:<input name="YD_Main_DatabaseName1" type="text" value="<%=ubb1(YD_Main_DatabaseName1)%>"/><br/>
如果数据库是ACCESS则以上不用设置,如果数据库是MSSQL则以下不用设置:<br/>
ACC数据库相对路径:<input name="acc1" type="text" value="<%=ubb1(acc1)%>"/><br/>

<%response.write "<input type=""submit"" name=""Submit"" value=""配置文件""></form><br/>"%>
<%else%>
数据库类型(1为ACCESS，0为MSSQL）:<input name="datesql1<%=minute(now)%><%=second(now)%>" type="text" value="<%=ubb1(datesql1)%>"/><br/>
数据库IP或数据库服务名:<input name="YD_SQL_SERVERIP1<%=minute(now)%><%=second(now)%>" type="text" value="<%=ubb1(YD_SQL_SERVERIP1)%>"/><br/>
登录数据库用户名:<input name="YD_SQL_UserName1<%=minute(now)%><%=second(now)%>" type="text" value="<%=ubb1(YD_SQL_UserName1)%>"/><br/>
登录数据库密码:<input name="YD_SQL_PassWord1<%=minute(now)%><%=second(now)%>" type="text" value="<%=ubb1(YD_SQL_PassWord1)%>"/><br/>
主数据库名:<input name="YD_Main_DatabaseName1<%=minute(now)%><%=second(now)%>" type="text" value="<%=ubb1(YD_Main_DatabaseName1)%>"/><br/>

如果数据库是ACCESS则以上MSSQL信息不用设置,如果数据库是MSSQL则以下不用设置:<br/>
ACC数据库相对路径:<input name="acc1<%=minute(now)%><%=second(now)%>" type="text" value="<%=ubb1(acc1)%>"/><br/>

<anchor>[配置文件]
<go href="sezhi.asp?SubmitFlag=true&amp;sid=<%=sid%>&amp;saytk=<%=saytk%>" method="post">
<postfield name="YD_SQL_SERVERIP1" value="$(YD_SQL_SERVERIP1<%=minute(now)%><%=second(now)%>)"/>
<postfield name="YD_SQL_PassWord1" value="$(YD_SQL_PassWord1<%=minute(now)%><%=second(now)%>)"/>
<postfield name="YD_Main_DatabaseName1" value="$(YD_Main_DatabaseName1<%=minute(now)%><%=second(now)%>)"/>
<postfield name="YD_SQL_UserName1" value="$(YD_SQL_UserName1<%=minute(now)%><%=second(now)%>)"/>
<postfield name="datesql1" value="$(datesql1<%=minute(now)%><%=second(now)%>)"/>
<postfield name="acc1" value="$(acc1<%=minute(now)%><%=second(now)%>)"/>
</go>
</anchor>
<%end if%>
<%end if%><br/>


<a href='../pic/getcaiji.asp?lid=<%=lid%>&amp;sid=<%=sid%>&amp;saytk=<%=saytk%>'>[图片自动采集器]</a><br/>
<a href="../index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">[后台管理]</a><br/>
<%call headsay()%>