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

📄 edit_fieldname.asp

📁 不错的ASP整站源代码。在IIS环境下运行都没有问题
💻 ASP
字号:
<!--#include file="../checkuser.asp" -->  
<!--#include file="../../include/db_conn.asp" -->
<!--#include file="../../include/pub_func.asp" -->  
<%
 m_ver = Trim(request("ver"))
 if m_ver="cn" then 
  tmpstr_t="[中文版]"
 elseif  m_ver="en"  then 
 tmpstr_t="[英文版]"
 else
 response.write "错误访问页面,请重试" 
 response.end    
 End If
 
 '------------
 catalogID=Request("catalogID")
 action=request("action")
 m_ver=request("ver")
 
 
 'response.Write action
 'response.end
 if action="update" then
   fieldstr1=request("fieldstr1")
   fieldstr2=request("fieldstr2")
   fieldstr3=request("fieldstr3")
   fieldstr4=request("fieldstr4")
   sqlstr3="update ys_product2_catalog set field1='"&fieldstr1&"',"&" field2='"&fieldstr2&"',"&"field3='"&fieldstr3&"',"&"field4='"&fieldstr4&"'"
   sqlstr3=sqlstr3&" where catalogid="&catalogid
   conn.execute(sqlstr3)
 end if
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>产品属性设置</title>
<link href="../include/styles.css" rel="stylesheet" type="text/css">
</head>

  
<table width="300"  border="1" cellpadding="0" cellspacing="0" bordercolordark="#FFFFFF" bordercolorlight="#cccccc" align="center">
  <tr> 
     <td height="35" align="center" bgcolor="#225597" class="TextFont12"><font color="#FFFFFF">产品属性管理<%=tmpstr_t%></font></td>
  </tr>
          <tr bgcolor="#ffffff" class="p9"> 
            <td align="center" class=p14 height=80>
			    <table width="408" height="20" border="0" cellpadding="0" cellspacing="3">
				<tr><td width="402">
				  <table width="100%" border="0" cellpadding="0" cellspacing="0">
              <form action="" name="frm_search" method="post">
				    <tr>
                  <td width="98%"> 
                    <div align="center">
                      <%
					 set myrs_catalog1=server.CreateObject("adodb.recordset")
					 sqlstr1="select * from ys_product2_catalog where catalogid=parentid and version='"&m_ver&"'"
                      myrs_catalog1.Open sqlstr1,conn,1,1 
					 if myrs_catalog1.recordcount>0 then
                      if catalogid="" then catalogid=myrs_catalog1("catalogid")
                     %>
                      <script language="javascript">
                     function chang_product_type(){
                       location.href="edit_fieldname.asp?ver=<%=m_ver%>&catalogid="+document.frm_search.catalogid.options[document.frm_search.catalogid.selectedIndex].value;
                      }
                    </script>
                      产品类别: 
                      <select name="catalogid" style="WIDTH: 150px; COLOR: navy; font-size:9pt" onChange="javascript:chang_product_type();">
                        <%
                do until myrs_catalog1.EOF
                   Response.Write "<option value='" & myrs_catalog1("catalogid") & "' " & object_selected(catalogid,cstr(myrs_catalog1("catalogid"))) & " style='color:navy;background:#f0f0f0'>⊙" & myrs_catalog1("catalogname") & "</option>"                          
                   set myrs_catalog2=server.CreateObject("adodb.recordset")
				   sqlstr2="select * from ys_product2_catalog where catalogid<>parentid and  parentid="&myrs_catalog1("catalogid")&" and  version='"&m_ver&"'"
				    myrs_catalog2.Open sqlstr2,conn,1,1 
				   do until myrs_catalog2.EOF
                    Response.Write "<option value='" & myrs_catalog2("catalogid") & "' " & object_selected(catalogid,cstr(myrs_catalog2("catalogid"))) & " style='color:navy;background:#f0f0f0'>┠—" & myrs_catalog2("catalogname") & "</option>"                          
				    myrs_catalog2.MoveNext
                   loop
				   myrs_catalog1.MoveNext
                loop
				myrs_catalog2.close
				set myrs_catalog12=nothing
				myrs_catalog1.close
				set myrs_catalog1=nothing
                %>
                      </select>
                      <%else 
		     response.Write "请先输入产品类别!"
			 response.end
			end if%>
                    </div>
                  <td width="2%"></tr>
					
				   </form>
				 </table>
				</td></tr>
				<tr><td>
				<%
				set myrs=server.CreateObject("adodb.recordset")
				sqlstr="select * from ys_product2_catalog where catalogid="&catalogid
                myrs.Open sqlstr,conn,1,1 
				if myrs("catalogid")=myrs("parentid") then
				 %>
				 <table width=100% height="44" border="0" cellpadding="0" cellspacing="0">
				   <tr><td height="24">请选择二级类别,并设置各类别下产品的属性!</td></tr>
				   <tr align="center" bgcolor="#225597"><td>&nbsp;</td></tr>
				 </table>
				<% else	%>
				<table width="100%" height="20" border="1" cellpadding="0" cellspacing="0" bordercolordark="#FFFFFF" bordercolorlight="#cccccc">
              <form name="frm_edit" action="edit_fieldname.asp" method="POST">
                <tr> 
                  <td colspan="2" align="center" bgcolor="#f0f0f0"></td>
                </tr>
                <tr> 
                  <td width="40%" align="right" bgcolor="#f0f0f0">属性1:&nbsp;&nbsp;</td>
                  <td width="60%" bgcolor="#f0f0f0">
<input name="Fieldstr1" type="text" maxlength="20" value="<%=myrs("Field1")%>"></td>
                </tr>
                <tr> 
                  <td width="40%" align="right" bgcolor="#f0f0f0">属性2:&nbsp;&nbsp;</td>
                  <td width="60%" bgcolor="#f0f0f0">
<input name="Fieldstr2" type="text" maxlength="20" value="<%=myrs("Field2")%>"></td>
                </tr>
                <tr> 
                  <td width="40%" align="right" bgcolor="#f0f0f0">属性3:&nbsp;&nbsp;</td>
                  <td width="60%" bgcolor="#f0f0f0">
<input name="Fieldstr3" type="text" maxlength="20" value="<%=myrs("Field3")%>"></td>
                </tr>
                <tr> 
                  <td width="40%" align="right" bgcolor="#f0f0f0">属性4:&nbsp;&nbsp;</td>
                  <td width="60%" bgcolor="#f0f0f0">
<input name="Fieldstr4" type="text" maxlength="20" value="<%=myrs("Field4")%>"></td>
                </tr>
                <tr align="center" bgcolor="#f0f0f0"> 
                  <td colspan="2">&nbsp;</td>
                </tr>
                <tr align="center" bgcolor="#f0f0f0"> 
                  <td colspan="2"> 
                    <input type="submit" name="Submit" value="修改">&nbsp;&nbsp; 
                    <input type="Reset" name="cmdcalcel" value="重新填写" > <input name="actstr" type="hidden" id="actstr" value="1"> 
                    <input name="catalogid" type="hidden" value="<%=catalogid%>"> 
                    <input name="ver" type="hidden" value="<%=m_ver%>"> 
                    <input name="action" type="hidden" value="update">
                  </td>
                </tr>
              </form>
            </table>
			  
			  <%end if%>
			  
			  </td></tr>
			</table>
                
              
            </td>
          </tr>
       
  </tr>
</table>
</body>
</html>

⌨️ 快捷键说明

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