📄 spgysadmin.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Inc/Dataconn.asp" -->
<!--#include file="Inc/Funcs.asp" -->
<script language="JavaScript">
function DelRecord(GYSID)
{
var ifDel = window.confirm("真的要删除吗？单击取消停止！");
if (ifDel) {
window.location="SPGYSAdmin.asp?Action=DeleteSPGYS&GYSID=" + GYSID
}else window.alert("删除操作被取消！");
}
</script>
<%
Call CheckAdmin
Dim GYSName,GYSSM,SQLStr
If Request.QueryString("Action")="DeleteSPGYS" Then '删除GYS
GYSID=Request.QueryString("GYSID")
SQLStr="Delete from GYS where GYSID="&GYSID
conn.execute SQLStr
End If
If Request.Form("Action")="AddGYS" Then '添加GYS
GYSName=Request.Form("GYSName")
if GYSName="" then
Call eMessage("供应商名称不能为空！")
end if
GYSSM=Request.Form("GYSSM")
SQLStr="Insert Into GYS(GYSName,GYSSM) Values('"&GYSName&"','"&GYSSM&"')"
conn.execute SQLStr
Call Message("供应商添加成功！")
End If
If Request.Form("Action")="SaveGYS" Then '保存GYS
Dim GYSID
GYSID=Request.Form("GYSID")
GYSName=Request.Form("GYSName")
if GYSName="" then
Call eMessage("商品供应商名称不能为空！")
end if
GYSSM=Request.Form("GYSSM")
SQLStr="Update GYS Set GYSName='"&GYSName&"',GYSSM='"&GYSSM&"' Where GYSID="&GYSID
conn.execute SQLStr
Call Message("供应商修改成功！")
End if
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href="Inc/css.css" rel="stylesheet" type="text/css" />
<!--#include file="Inc/hlink.asp" -->
<title></title>
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
.STYLE2 {
font-size: 12px;
font-weight: bold;
}
.STYLE3 {
color: #000000;
font-weight: bold;
}
.STYLE4 {color: #000033}
-->
</style></head>
<body>
<table width="612" height="450" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top">
<table width="350" height="25" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<form name="form2" method="post" action="SPGYSAdmin.asp">
<tr>
<td height="20" align="center" bgcolor="#FFFFFF" class="Txt">
<input name="Action" type="hidden" id="Action" value="ShowAddGYS" />
<input name="Submit3" type="submit" class="Button2" value="添加商品供应商" /></td>
</tr>
</form>
<%if Request.form("Action")="ShowAddGYS" then%>
<form name="form1" method="post" action="SPGYSAdmin.asp">
<tr>
<td height="20" align="center" background="Images/tbtitle.jpg" class="Txt STYLE3">添加商品供应商</td>
</tr>
<tr>
<td height="20" bgcolor="#FFFFFF" class="Txt"> 供应商名称：
<input name="GYSName" type="text" class="InputStyle2" id="GYSName" /></td>
</tr>
<tr>
<td height="20" valign="top" bgcolor="#FFFFFF" class="Txt"> 供应商说明：
<textarea name="GYSSM" rows="5" class="InputStyle2" id="GYSSM"></textarea></td>
</tr>
<tr>
<td height="20" align="center" bgcolor="#FFFFFF" class="Txt">
<input name="Action" type="hidden" id="Action" value="AddGYS" />
<input name="Submit" type="submit" class="Button1" value=" 添 加 " />
<input name="Submit2" type="reset" class="Button1" value=" 重 填 " /></td>
</tr>
</form>
<%end if%>
</table>
<%if request.querystring("Action")="ShowEditGYS" then
GYSID=request.querystring("GYSID")
SQLStr="Select * from GYS where GYSID="&GYSID
rS.Open SQLStr,conn,1,1
%>
<table width="350" height="25" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<form name="form1" method="post" action="SPGYSAdmin.asp">
<tr>
<td height="25" align="center" background="Images/tbtitle.jpg" class="Txt STYLE3">编辑供应商类别</td>
</tr>
<tr>
<td height="20" bgcolor="#FFFFFF" class="Txt"> 供应商名称：
<input name="GYSName" type="text" class="InputStyle2" id="GYSName" value="<%=trim(rS(1))%>" /></td>
</tr>
<tr>
<td height="20" valign="top" bgcolor="#FFFFFF" class="Txt"> 供应商说明：
<textarea name="GYSSM" rows="5" class="InputStyle2" id="GYSSM" ><%=trim(rS(2))%></textarea></td>
</tr>
<tr>
<td height="20" align="center" bgcolor="#FFFFFF" class="Txt">
<input name="GYSID" type="hidden" id="GYSID" value="<%=rS(0)%>" />
<input name="Action" type="hidden" id="Action" value="SaveGYS" />
<input name="Submit" type="submit" class="Button1" value=" 保 存 " /> </td>
</tr>
</form>
</table>
<%
rS.Close
End If
%>
<span class="STYLE2">已存在的商品供应商：</span>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#999999">
<tr>
<td height="25" align="center" background="Images/tbtitle.jpg" class="Txt STYLE4">编号</td>
<td height="25" align="center" background="Images/tbtitle.jpg" class="Txt STYLE4">供应商名称</td>
<td height="25" align="center" background="Images/tbtitle.jpg" class="Txt STYLE4">供应商说明</td>
<td height="25" colspan="2" align="center" background="Images/tbtitle.jpg" class="Txt STYLE4">操作</td>
</tr>
<%
SQLStr="Select * from GYS"
rS.Open SQLStr,conn,1,1
%>
<%For i=1 to rS.RecordCount%>
<tr>
<td height="20" align="center" bgcolor="#FFFFFF" class="Txt"><%=rS(0)%></td>
<td align="center" bgcolor="#FFFFFF" class="Txt"><%=rS(1)%></td>
<td align="center" bgcolor="#FFFFFF" class="Txt"><%=rS(2)%></td>
<td align="center" bgcolor="#FFFFFF" class="Txt"><a href="SPGYSAdmin.asp?Action=ShowEditGYS&GYSID=<%=rS(0)%>" title="编辑类别">编 辑</a></td>
<td align="center" bgcolor="#FFFFFF" class="Txt"><a href="#" onClick="DelRecord(<%=rS(0)%>)" title="删除类别">删 除</a></td>
</tr>
<%
rS.MoveNext
Next
%>
</table>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -