⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 shjia_inc.asp

📁 商业网站开发有源代码可以运行
💻 ASP
📖 第 1 页 / 共 3 页
字号:
    </td>
    <td bgcolor=#FFFFEE> 
      <input name="bookpic" type="text" id="bookpic" size="15" value="<%=trim(rs1("bookpic"))%>">
      &nbsp; 
      <input type="button" name="Submit2" value="上传小图片" onClick="window.open('upload_flash.asp?formname=myform&editname=bookpic&uppath=bookpic&filelx=jpg','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')">
    </td>
  </tr>
  <tr>
    <td bgcolor=#FFFFEE>&nbsp; </td> 
    <td bgcolor=#FFFFEE> 
    <input name="zhuang" type="text" id="zhuang" size="15" value="<%=trim(rs1("zhuang"))%>">
      &nbsp; 
      <input type="button" name="Submit2" value="上传大图片" onClick="window.open('upload_flash.asp?formname=myform&editname=zhuang&uppath=bookpic&filelx=jpg','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')">
    </td>
  </tr>
  <tr> 
    <td bgcolor=#FFFFEE> 
      <%
set rs_s=server.createobject("adodb.recordset")
rs_s.open "select * from ziduan where ziduanorder=8 ",conn,1,1
%>
                                      <input type="text" name="nr" size="7" value="<%=rs_s("ziduanname")%>">
                                      <%
rs_s.close
set rs_s=nothing
%>
    </td>
      <td bgcolor=#FFFFEE> <textarea name="bookcontent" cols="42" rows="8" id="bookcontent"><%=trim(rs1("bookcontent"))%></textarea></td>
  </tr>
  <tr> 
    <td bgcolor=#FFFFEE colspan="2"> 
      <div align="center"> 
        <input name="newsbook" type="checkbox" id="bestbook" value="1" <%if rs1("newsbook")=1 then%>checked<%end if%>>
        新品  
        <input name="bestbook" type="checkbox" id="bestbook" value="1" <%if rs1("bestbook")=1 then%>checked<%end if%>>
        推荐  
        <input name="tejiabook" type="checkbox" id="bestbook" value="1" <%if rs1("tejiabook")=1 then%>checked<%end if%>>
        特价</div>
    </td>    
  </tr>
  <tr>
  <%rs1.close
set rs1=nothing%>
    <td bgcolor=#FFFFEE colspan="2"> 
      <div align="center"> 
        <input type="submit" name="Submit" value="添 加" onClick="return check();">
	  </div>
    </td>    
  </tr>
</table>
</form>
<%
end sub



sub myziliao()
if request.cookies("songxf")("shjianame")="" then
response.Redirect "shjia.asp"
response.End
end if
%>
<script language=JavaScript>
function IsDigit()
{
  return ((event.keyCode >= 48) && (event.keyCode <= 57));
}
function checkspace(checkstr) {
  var str = '';
  for(i = 0; i < checkstr.length; i++) {
    str = str + ' ';
  }
  return (str == checkstr);
}
function checkuserinfo()
{
 if(document.userinfo.useremail.value.length!=0)
  {
    if (document.userinfo.useremail.value.charAt(0)=="." ||        
         document.userinfo.useremail.value.charAt(0)=="@"||       
         document.userinfo.useremail.value.indexOf('@', 0) == -1 || 
         document.userinfo.useremail.value.indexOf('.', 0) == -1 || 
         document.userinfo.useremail.value.lastIndexOf("@")==document.userinfo.useremail.value.length-1 || 
         document.userinfo.useremail.value.lastIndexOf(".")==document.userinfo.useremail.value.length-1)
     {
      alert("Email地址格式不正确!");
      document.userinfo.useremail.focus();
      return false;
      }
   }
 else
  {
   alert("Email不能为空!");
   document.userinfo.useremail.focus();
   return false;
   }
     
  if(checkspace(document.userinfo.dz.value)) {
	document.userinfo.dz.focus();
    alert("对不起,请填写您的详细地址!");
	return false;
  }
  if(checkspace(document.userinfo.pc.value)) {
	document.userinfo.pc.focus();
    alert("对不起,请填写邮编!");
	return false;
  }
  if(document.userinfo.pc.value.length!=6) {
	document.userinfo.pc.focus();
    alert("对不起,请正确填写邮编!");
	return false;
  } 
    if(checkspace(document.userinfo.tel.value)) {
	document.userinfo.tel.focus();
    alert("对不起,请留下您的联系电话!");
	return false;
  }
}
</script>

<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [shjia] where username='"&request.cookies("songxf")("shjianame")&"' ",conn,1,1
%>
    
<table width=100% border=0 align=center cellpadding=1 cellspacing=1 bgcolor="#FFCC00">
  <form name="userinfo" method="post" action="user/saveshjiainfo.asp?action=myziliao">
    <tr bgcolor="#FFFFEE"> 
      <td height=22> 
        <div align="right">商店名称:</div>
      </td>
      <td height=22> 
        <input name="name" type="text" id="name" size="30" maxlength="40" value="<%=trim(rs("name"))%>"></td>
    </tr>
    <tr bgcolor="#FFFFEE"> 
      <td height=22> 
        <div align="right">负责人名称:</div>
      </td>
      <td height=22> 
        <input name="name2" type="text" id="name" size="30" maxlength="40" value="<%=trim(rs("name2"))%>"></td> 
    </tr>
	<tr bgcolor="#FFFFEE"> 
      <td height=22> 
        <div align="right">管理员名称:</div>
      </td>
      <td height=22> 
        <input name="username" type="text" id="username" size="30" maxlength="40" value="<%=trim(rs("username"))%>">
        <font color="#FF0000">**(不可更改!)</font></td> 
    </tr>
	<tr bgcolor="#FFFFEE"> 
      <td height=22> 
        <div align="right">电子邮件: </div>
      </td>
      <td height=22> 
        <input name=useremail type="text" id="useremail" size="30" maxlength="40" value="<%=trim(rs("useremail"))%>">
        <font color="#FF0000">*</font> </td>
    </tr>
    <tr bgcolor="#FFFFEE"> 
      <td height=22> 
        <div align="right">详细地址: </div>
      </td>
      <td height=22> 
        <input name=dz type=text size="40" maxlength="40" value="<%=trim(rs("dz"))%>">
        <font color="#FF0000">*</font> </td>
    </tr>
    <tr bgcolor="#FFFFEE"> 
      <td height=22> 
        <div align="right">联系电话: </div>
      </td>
      <td height=22> 
        <input name=tel type=text  value="<%=trim(rs("tel"))%>" size="12">
        <font color="#FF0000">*</font> </td>
    </tr>
    <tr bgcolor="#FFFFEE"> 
      <td height=22> 
        <div align="right">邮编: </div>
      </td>
      <td height=22> 
        <input name=pc type=text  value="<%=trim(rs("pc"))%>" ONKEYPRESS="event.returnValue=IsDigit();" size="12">
        <font color="#FF0000">*</font> </td>
    </tr>
    <tr bgcolor="#FFFFEE"> 
      <td height=22> 
        <div align="right">QQ: </div>
      </td>
      <td height=22> 
        <input name=QQ type=text  value="<%=trim(rs("oicq"))%>" size="12" maxlength="12">
      </td>
    </tr>
    <tr bgcolor="#FFFFEE"> 
      <td> 
        <div align="right">公司简介:</div>
      </td>
      <td> 
        <textarea name="content" rows="18" cols="40"><%=trim(rs("content"))%></textarea>
      </td>
    </tr>
    <tr bgcolor="#FFFFEE"> 
      <td height=24 colspan="2"> 
        <div align="center"> 
          <input  type=image border=0 name=submit2 src=images/bc.gif width=54 height=18 onclick='return checkuserinfo();'>
        </div>
      </td>
    </tr>
  </form>
</table>
<%rs.close
set rs=nothing
end sub

sub addnews()
if request.cookies("songxf")("shjianame")="" then
response.Redirect "shjia.asp"
response.End
end if
%>
<script language=JavaScript>
function checkspace(checkstr) {
  var str = '';
  for(i = 0; i < checkstr.length; i++) {
    str = str + ' ';
  }
  return (str == checkstr);
}
function checknewsinfo()
{
 if(checkspace(document.newsinfo.title.value)) {
	document.newsinfo.title.focus();
    alert("对不起,请填写新闻标题!");
	return false;
  }
  if(checkspace(document.newsinfo.content.value)) {
	document.newsinfo.content.focus();
    alert("对不起,请填写新闻内容!");
	return false;
  }
}
</script>
<%set rs=server.CreateObject("adodb.recordset")
dim isedit,id
isedit=request.QueryString("isedit")
if isedit then
rs.open "select * from news where newsid=" & cstr(request("id")),conn,1,1
end if
%>
<table width="100%" border="0" align=center cellpadding=1 cellspacing=1 bgcolor=#FFCC00>  
  <form name="newsinfo" method="post" action="user/saveshjiainfo.asp?action=savenews">	
      <tr> 
        <td colspan="2" bgcolor=#FFFFEE> 
          <div align="center">添加新闻</div>
        </td>
      </tr>
      <tr> 
        <td width="25%" bgcolor=#FFFFEE> 
          <div align="center">标题:</div>
        </td>
        <td width="75%" bgcolor=#FFFFEE> 
          <input name="title" type="text" id="title" size="40" value='<% if isedit then
		                                                         response.write trim(rs("title")) 
															 end if %>' maxlength="40" >
        </td>
      </tr>
      <tr> 
        <td width="25%" bgcolor=#FFFFEE> 
          <div align="center">内容:</div>
        </td>
        
      <td width="75%" bgcolor=#FFFFEE> <textarea name="content" rows="12" cols="40"><% if isedit then response.write rs("Content") %></textarea></td>
      </tr>
	  <tr> 
        <td width="25%" bgcolor=#FFFFEE>
		</td>
        <td width="75%" bgcolor=#FFFFEE>
	  <input type="Hidden" name="action" value='<% If isedit then%>modify<% Else  %>add<% End If %>'>
	  <input type="Hidden" name="id" value='<% if isedit then response.write rs("newsid") end if %>'>
	  </td>
      </tr>
      <tr> 
        <td colspan="2" bgcolor=#FFFFEE> 
          <div align="center"> 
            <input  type=image border=0 name=submit2 src=images/bc.gif width=54 height=18 onclick='return checknewsinfo();'>
          </div>
        </td>
      </tr>
    </form>
  </table>
  <%
  if isedit then
  rs.close
  set rs=nothing
  end if
  end sub
  
  
sub fkfs()
if request.cookies("songxf")("shjianame")="" then
response.Redirect "shjia.asp"
response.End
end if
%>
<script language=JavaScript>
function checkspace(checkstr) {
  var str = '';
  for(i = 0; i < checkstr.length; i++) {
    str = str + ' ';
  }
  return (str == checkstr);
}
function checkfkfsinfo()
{
 if(checkspace(document.fkfsinfo.content.value)) {
	document.fkfsinfo.content.focus();
    alert("对不起,请填写付款方式内容!");
	return false;
  }
}
</script>
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select * from fkfs where shjiaid="&id,conn,1,1
%>
<table width="100%" border="0" align=center cellpadding=1 cellspacing=1 bgcolor=#FFCC00>
  <form name="fkfsinfo" method="post" action="user/saveshjiainfo.asp?action=fkfs">
    <tr> 
      <td colspan="2" bgcolor=#FFFFEE> 
        <div align="center">付款方式</div>
      </td>
    </tr>
    <tr> 
      <td width="20%" bgcolor=#FFFFEE> 
        <div align="center">内容:</div>
      </td>
      <td width="80%" bgcolor=#FFFFEE> 
        <textarea name="content" rows="18" cols="40">
		<%
		if rs.recordcount<>"0" then
		response.write trim(rs("Content"))
		end if
		%>
		</textarea><input type="Hidden" name="fkong" value='<%if rs.recordcount<>"0" then response.write "fkong" end if %>'>
		<input type="Hidden" name="id" value='<% if rs.recordcount<>"0" then response.write rs("shjiaid") end if %>'>

      </td>
    </tr>    
    <tr> 
      <td colspan="2" bgcolor=#FFFFEE> 
        <div align="center"> 
          <input  type=image border=0 name=submit2 src=images/bc.gif width=54 height=18 onclick='return checkfkfsinfo();'>
        </div>
      </td>
    </tr>
  </form>
</table>
  
<%  
  if isedit then
  rs.close
  set rs=nothing
  end if
  end sub
  
  
sub ps()
if request.cookies("songxf")("shjianame")="" then
response.Redirect "shjia.asp"
response.End
end if
%>
<script language=JavaScript>
function checkspace(checkstr) {
  var str = '';
  for(i = 0; i < checkstr.length; i++) {
    str = str + ' ';
  }
  return (str == checkstr);
}
function checkpsinfo()
{
 if(checkspace(document.psinfo.content.value)) {
	document.psinfo.content.focus();
    alert("对不起,请填写内容!");
	return false;
  }
}
</script>
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select * from ps where shjiaid="&id,conn,1,1
%>
<table width="100%" border="0" align=center cellpadding=1 cellspacing=1 bgcolor=#FFCC00>
  <form name="psinfo" method="post" action="user/saveshjiainfo.asp?action=ps">
    <tr> 
      <td colspan="2" bgcolor=#FFFFEE> 
        <div align="center">配送说明</div>
      </td>
    </tr>
    <tr> 
      <td width="20%" bgcolor=#FFFFEE> 
        <div align="center">内容:</div>
      </td>
      <td width="80%" bgcolor=#FFFFEE> 
        <textarea name="content" rows="18" cols="40">
		<%
		if rs.recordcount<>"0" then
		response.write trim(rs("Content"))
		end if
		%>
		</textarea>
        <input type="Hidden" name="psong" value='<%if rs.recordcount<>"0" then response.write "psong" end if %>'>
        <input type="Hidden" name="id" value='<% if rs.recordcount<>"0" then response.write rs("shjiaid") end if %>'>
      </td>
    </tr>
    <tr> 
      <td colspan="2" bgcolor=#FFFFEE> 
        <div align="center"> 
          <input  type=image border=0 name=submit22 src=images/bc.gif width=54 height=18 onClick='return checkpsinfo();'>
        </div>
      </td>
    </tr>
  </form>
</table>
<%  
  rs.close
  set rs=nothing
  end sub
  rs_s.close
  set rs_s=nothing
  %>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -