bs_sysdata.asp

架設ROSE私服必備之物 ROSE數據庫

<%@language=VBScript codepage=936 %>
<!--#include file="aspcs.asp"-->

<!--#include file="conn.asp"-->

<!--#include file="admin.asp"-->
<!-- #include file="Inc/Head.asp" -->
<p>

  <!--#include file="inc/function.asp"-->
  </SCRIPT>
  <%dim rs,sql
Set rs = Server.CreateObject("ADODB.Recordset")
sql="Select * from Bs_SysData where code='5062942'"
rs.Open sql,conn,3,3
%>
    <FONT style="BACKGROUND-COLOR: #ffffff">&nbsp;<BR>
  </FONT>
</p>
<TABLE style="border-left:1px solid #000000;border-right:1px solid #000000;border-top:1px solid #000000;border-bottom:1px solid #000000;font-size:12px;" width=560 border=0 align=center cellPadding=0 cellSpacing=0 bordercolor="#000000" bgcolor="#000000" class=td_southidc  >
<TBODY>
<TR class="back_southidc">
<TD class=a1 align=middle height=25><STRONG>网 站 基 本 资 料 设 置</STRONG></TD>
</TR>
<TR class=a4>
<TD align=middle>
<TABLE cellSpacing=0 cellPadding=0 width=550 border=0  style="font-size:12px;">
<TBODY>
<TR>
<FORM name=myform action=Bs_SysData.asp?no=eshop method=post><INPUT type=hidden value=101 name=id> 
<TD>
<DIV align=center>
<TABLE cellSpacing=2 cellPadding=3 width="650" border=0  style="font-size:12px;">
<TBODY>
<TR>
<TD width="20%" height=25 align=left bgColor=#c0c0c0 class="tit">公司名称</TD>
<TD width="75%" bgColor=#c0c0c0><INPUT maxLength=120 size=60 value=<%=replace(rs("BsCompanyName")," ","&nbsp;")%> name=BsCompanyName></TD>
</TR>
<TR>
<TD align=left bgColor=#c0c0c0 height=25>名称(英)</TD>
<TD bgColor=#c0c0c0><INPUT maxLength=200 size=60 value=<%=replace(rs("BsEnCompanyName")," ","&nbsp;")%> name=BsEnCompanyName></TD></TR>
<TR>
<TD align=left bgColor=#c0c0c0 height=25>地址</TD>
<TD bgColor=#c0c0c0><INPUT maxLength=90 size=60 value="<%=rs("BsAddress")%>" name=BsAddress></TD></TR>
<tr> 
                  <td align=left bgColor=#c0c0c0 height=25 width="100">logo图片：                  </td>
                  <td  bgColor=#c0c0c0><table><tr><td><input value="<%=rs("lomage")%>" name="DefaultPicUrl" type="text" id="DefaultPicUrl" size="30" maxlength="50"> </td><td><iframe style="top:2px" ID="UploadFiles" src="../upload_Photo.asp?PhotoUrlID=6" frameborder=0 scrolling=no width="300" height="25"></iframe> </td></tr></table>
                  </td>
                </tr>
<TR>
<TD align=left bgColor=#c0c0c0 height=25>地址(英)</TD>
<TD bgColor=#c0c0c0><INPUT maxLength=90 size=60 value="<%=replace(rs("BsEnAddress")," ","&nbsp;")%>" name=BsEnAddress></TD></TR>
<TR>
<TD align=left bgColor=#c0c0c0 height=25>联系人</TD>
<TD bgColor=#c0c0c0><INPUT maxLength=30 size=25 value=<%=rs("BsLinkman")%> name=BsLinkman></TD></TR>
<TR>
<TD align=left bgColor=#c0c0c0 height=25>英文名</TD>
<TD bgColor=#c0c0c0><INPUT maxLength=30 size=25 value=<%=rs("BsEnLinkman")%> name=BsEnLinkman></TD></TR>
<TR>
<TD align=left bgColor=#c0c0c0 height=25>电话</TD>
<TD bgColor=#c0c0c0><INPUT maxLength=30 size=25 value=<%=replace(rs("BsPhone")," ","&nbsp;")%> name=BsPhone></TD></TR>
<TR>
<TD align=left bgColor=#c0c0c0 height=25>传真</TD>
<TD bgColor=#c0c0c0><INPUT maxLength=30 size=25 value=<%=rs("BsFax")%> name=BsFax></TD></TR>
<TR>
<TD align=left bgColor=#c0c0c0 height=25>网址</TD>
<TD bgColor=#c0c0c0><INPUT maxLength=50 size=25 value=<%=rs("BsWeb")%> name=BsWeb>　注意: 必须填入 <FONT color=#ff0000>http://</FONT></TD></TR>
<TR>
<TD align=left bgColor=#c0c0c0 height=25>Email</TD>
<TD bgColor=#c0c0c0><INPUT maxLength=30 size=25 value=<%=rs("BsEmail")%> name=BsEmail></TD></TR>
<TR>
<TD align=left bgColor=#c0c0c0 height=25>公司邮局</TD>
<TD bgColor=#c0c0c0><INPUT maxLength=50 size=25 value=<%=rs("BsWebMail")%> name=BsWebMail>　注意: 必须填入 <FONT color=#ff0000>http://</FONT></TD></TR>
<TR>
<TD align=left bgColor=#c0c0c0 height=25>邮政编码</TD>
<TD bgColor=#c0c0c0><INPUT maxLength=30 size=25 value=<%=rs("BsZipcode")%> name=BsZipcode></TD></TR>
<TR>
<TD align=right bgColor=#c0c0c0 height=25><strong>ICP</strong>备案</TD>
<TD bgColor=#c0c0c0><INPUT maxLength=5 size=20 value=<%=rs("BsBeian")%> name=BsBeian>
　</TD><tr>
<TD align=right bgColor=#c0c0c0 height=25><strong>运行模式</TD>
<TD bgColor=#c0c0c0><input type="radio" name="moshi" value="False" <%if rs("moshi")=False then response.write "checked"%>>
              ASP&nbsp;&nbsp; <input type="radio" name="moshi" value="True" <%if rs("moshi")=True then response.write "checked"%>>
              HTML
　</TD>
</TR>

<TR>
<TD bgColor=#c0c0c0 colSpan=2 height=25>
<DIV align=center><INPUT type=submit value=确认修改 name=submit> &nbsp; <INPUT type=reset value=重来 name=reset> </DIV></TD></TR></TBODY></TABLE></DIV></TD></FORM></TR></TBODY></TABLE><BR></TD></TR></TBODY></TABLE><BR></P>
<P align=center>良精软件科技有限公司<BR>
</P>
<P align=center>
<SCRIPT language=Javascript>

 function checkchar(str)
 {
  str=str.toLowerCase()
  if (str.search("<"+"%")>0)  
  {
   window.alert("("+str+")中有非法字符,请检查!")
   return false;
  }
  if (str.search("<scrip"+"t")>0)
  {
   window.alert("("+str+")中有非法字符,请检查!")
   return false;
  }
  return true;
 }
</SCRIPT>
<%if Request.QueryString("no")="eshop" then

moshi=request("moshi")
BsCompanyName=request("BsCompanyName")
BsEnCompanyName=request("BsEnCompanyName")
BsAddress=request("BsAddress")
BsEnAddress=request("BsEnAddress")
BsLinkman=request("BsLinkman")
BsEnLinkman=request("BsEnLinkman")
BsPhone=request("BsPhone")
BsFax=request("BsFax")
BsWeb=request("BsWeb")
BsEmail=request("BsEmail")
BsWebMail=request("BsWebMail")
BsZipcode=request("BsZipcode")
BsBeian=request("BsBeian")
BsSkins_Default=request("BsSkins_Default")
If BsCompanyName="" Then
response.write "SORRY <br>"
response.write "请填入公司名称!"
response.end
end if
If BsEnCompanyName="" Then
response.write "SORRY <br>"
response.write "请填入英文公司名称!"
response.end
end if
If BsAddress="" Then
response.write "SORRY <br>"
response.write "请填入地址!"
response.end
end if
If BsEnAddress="" Then
response.write "SORRY <br>"
response.write "请填入英文地址!"
response.end
end if
If BsPhone="" Then
response.write "SORRY <br>"
response.write "请填入电话!"
response.end
end if
If BsWeb="" Then
response.write "SORRY <br>"
response.write "请填入网址!"
response.end
end if
If BsEmail="" Then
response.write "SORRY <br>"
response.write "请填入Email!"
response.end
end if

Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from Bs_SysData where code='5062942'"
rs.open sql,conn,1,3
rs("moshi")=moshi
	rs("BsCompanyName")=BsCompanyName
	rs("BsEnCompanyName")=BsEnCompanyName
	rs("BsAddress")=BsAddress
	rs("BsEnAddress")=BsEnAddress
	rs("BsLinkman")=BsLinkman
	rs("BsEnLinkman")=BsEnLinkman
	rs("BsPhone")=BsPhone
	rs("BsFax")=BsFax
		rs("lomage")=trim(request.Form("DefaultPicUrl"))
	rs("BsWeb")=BsWeb
	rs("BsEmail")=BsEmail
	rs("BsWebMail")=BsWebMail
	rs("BsZipcode")=BsZipcode
		rs("BsBeian")=BsBeian
	rs("BsSkins_Default")=BsSkins_Default
rs.update
rs.close
response.write "<script language='javascript'>"
response.write "alert('修改成功！');"
response.write "location.href='Bs_SysData.asp';"
response.write "</script>"
response.end

end if%>