皮皮网

1.asp是库存什么
2.ProductBuySave.asp?MemberID=6
3.请问哈，那能找到个简单的码库码整站ASP源代码，有基本的存系功能就可以，后台好操作，统源完整
4.下载的库存asp源码怎么使用？

asp是什么

       asp源代码或叫asp源码，源程序；

       就是码库码活动专题源码程序员开发好的成品网站，没有经过加密，存系封装的统源源程序；

       客户只要把asp源代码上传到自己的独立空间，即可马上得到一个现成的库存网站。

ProductBuySave.asp?码库码MemberID=6

       ä¸€ã€‚一个在线订购表单。两个文件：1、ProductBuy.asp。2、ProductBuySave.asp。二。问题：在ProductBuy.asp页面填好订购信息，点提交，调用ProductBuySave.asp错误。无法显示。三。两个文件的源码：1、ProductBuy.asp<%

       dim ProductName,ProductNo

       ProductName=request.QueryString("ProductName")

       ProductNo=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)

       dim MemID,mRealName,mSex,mCompany,mAddress,mZipCode,mTelephone,mFax,mMobile,mEmail

       if session("MemName")<>"" and session("MemLogin")="Succeed" then

       call MemInfo()

       else

       mSex="Male"

       MemID=0

       end if

       %>

       <div align="center">

       <table width="" border="0" cellspacing="0" cellpadding="0" class="Outside">

       <tr>

       <td width="" valign="top" class="leftCenter" > </td>

       <td width="5"></td>

       <td valign="top" class="AllCenter"><table width="%" border="0" cellspacing="0" cellpadding="0">

       <tr>

       <td width="" height="1" background="../Images/TitBG.gif"></td>

       </tr>

       </table>

       <table width="%" border="0" cellspacing="0" cellpadding="0">

       <tr>

       <td width="" height=""> </td>

       <td> </td>

       <td width=""> </td>

       </tr>

       <tr>

       <td> </td>

       <td>

       <table width="" border="0" cellspacing="0" cellpadding="1">

       <form name="formBuy" method="post" action="ProductBuySave.asp?MemberID=<%=MemID%>">

       <tr>

       <td width="" align="right">Product Name:</td>

       <td width=""><input name="ProductName" type="text" class="TextBox" id="ProductName" value="<%=ProductName%>" size="" maxlength=""> <font color="#CC">*</font></td>

       </tr>

       <tr>

       <td align="right">Date:</td>

       <td>

       <%if da1="" then %>

       <script language=javascript>

       var myDate=new dateSelector0();

       myDate.year;

       myDate.date;

       myDate.inputName='start_date'; //注意这里设置输入框的name，同一页中日期输入框，不能出现重复的name�8�7

       myDate.display();

       </script>

       <%else%>

       <input name="start_date" type="text" class="TextBox" value="<%=da1%>" size="" maxlength="">

       <%end if%>

        <font color="#CC">*</font></td>

       </tr>

       <tr>

       <td align="right">PRoductNO.:</td>

       <td><input name="ProductNo" type="text" class="TextBox" id="ProductNo" value="<%=ProductNo%>" size="" maxlength=""> <font color="#CC">*</font></td>

       </tr>

       <tr>

       <td align="right">Amount:</td>

       <td><input name="Amount" type="text" class="TextBox" id="Amount" value="1" size="" maxlength="">

        <font color="#CC">*</font> Please add on the unit, like "1piece"</td>

       </tr>

       <tr>

       <td align="right">Remark:</td>

       <td><textarea name="Remark" cols="" rows="8" class="TextBox" id="Remark"></textarea></td>

       </tr>

       <tr>

       <td align="right">Name:</td>

       <td><input name="RealName" type="text" class="TextBox" id="RealName" value="<%=mRealName%>" size="" maxlength=""> <font color="#CC">*</font></td>

       </tr>

       <tr>

       <td align="right">Sex:</td>

       <td><input name="Sex" type="radio" value="Male" <%if mSex="Male" then response.write ("checked")%>>Male

       <input type="radio" name="Sex" value="FeMale" <%if mSex="FeMale" then response.write ("checked")%>>FeMale</td> </tr>

       <tr>

       <td align="right">Company:</td>

       <td><input name="Company" type="text" class="TextBox" id="Company" value="<%=mCompany%>" size="" maxlength="">

       <span style="color: #FF"> * Personal please fill in "Personal"</span></td>

       </tr>

       <tr>

       <td align="right">Address:</td>

       <td><input name="Address" type="text" class="TextBox" id="Address" value="<%=mAddress%>" size="" maxlength="">

       <span style="color: #FF"> * The address please fill in detail</span></td>

       </tr>

       <tr>

       <td align="right">ZipCode:</td>

       <td><input name="ZipCode" type="text" class="TextBox" id="ZipCode" value="<%=mZipCode%>" size="" maxlength="">

       <span style="color: #FF"> * Like:</span></td>

       </tr>

       <tr>

       <td align="right">Phone:</td>

       <td><input name="Telephone" type="text" class="TextBox" id="Telephone" value="<%=mTelephone%>" size="" maxlength="">

        <span style="color: #FF">* At least numbers</span></td>

       </tr>

       <tr>

       <td align="right">FAX:</td>

       <td><input name="Fax" type="text" class="TextBox" id="Fax" value="<%=mFax%>" size="" maxlength=""></td>

       </tr>

       <tr>

       <td align="right">Mobile:</td>

       <td><input name="Mobile" type="text" class="TextBox" id="Mobile" value="<%=mMobile%>" size="" maxlength=""></td>

       </tr>

       <tr>

       <td align="right">Email:</td>

       <td><input name="Email" type="text" class="TextBox" id="Email" value="<%=mEmail%>" size="" maxlength=""> <font color="#CC">*</font></td>

       </tr>

       <tr>

       <td height="" align="right"> </td>

       <td valign="bottom">

       <input name="Submit" type="submit" class="button" value=" Submit ">

       <input name="Reset" type="reset" class="button" value=" Reset "></td>

       </tr>

       </form>

       </table> </td>

       <td> </td>

       </tr>

       <tr>

       <td height=""></td>

       <td></td>

       <td></td>

       </tr>

       </table></td>

       </tr>

       </table>

       </div>

       <%

       function WebMenu(DataFrom,ID)

       Dim rs,sql

       Set rs=server.CreateObject("adodb.recordset")

       sql="Select * From "&DataFrom&" where ParentID="&id&" and ViewFlag order by id"

       rs.open sql,conn,1,1

       response.write("<table width='' border='0' cellspacing='0' cellpadding='0'>")

       if id=0 and rs.bof and rs.eof then

       response.write "<tr><td align='center'>No Data</td></tr>"

       else

       while not rs.eof

       response.write "<tr class='WebMenu'><td width=''><img src='../Images/Arrow_.gif' width='' height=''></td>"

       response.write "<td><a href='ProductList.asp?SortID="&rs("ID")&"&SortPath="&rs("SortPath")&"'>"&rs("SortName")&"</a></td></tr>"

       rs.movenext

       wend

       end if

       response.write("</table>")

       rs.close

       set rs=nothing

       end functionsub MemInfo()

       dim rs,sql

       set rs = server.createobject("adodb.recordset")

       sql="select * from Ameav_Members where MemName='"&session("MemName")&"'"

       rs.open sql,conn,1,1

       if rs.bof and rs.eof then

       response.write "No Data"

       else

       MemID=rs("ID")

       if not rs("RealName")="" then

       mRealName=rs("RealName")

       else

       mRealName=rs("MemName")

       end if

       mSex=rs("Sex")

       mCompany=rs("Company")

       mAddress=rs("Address")

       mZipCode=rs("ZipCode")

       mTelephone=rs("Telephone")

       mFax=rs("Fax")

       mMobile=rs("Mobile")

       mEmail=rs("Email")

       end if

       rs.close

       set rs=nothing

       end sub

       %>四。如果解决了问题，可加分。五。或者QQ联系：问题补充 -- :、ProductBuySave.asp<% Option Explicit %>

       <%Response.Charset="utf-8"%>

       <!--#include file="../Include/Const.asp"-->

       <!--#include file="../Include/ConnSiteData.asp"-->

       <!--#include file="../Include/Function.asp"-->

       <!--#include file="../Include/NoSqlHack.Asp" --><%

       dim Productname,ProductNo,Amount,Remark,StartDate

       dim MemID,RealName,Sex,Company,Address,ZipCode,Telephone,Fax,Mobile,Email,VerifyCode

       dim rs,sql

       StartDate=request.form("Start_Date")

       ProductName=trim(request.form("ProductName"))

       ProductNo=trim(request.form("ProductNo"))

       Amount=trim(request.form("Amount"))

       Remark=request.form("Remark")

       MemID=request.QueryString("MemberID")

       RealName=trim(request.form("RealName"))

       Sex=trim(request.form("Sex"))

       Company=trim(request.form("Company"))

       Address=trim(request.form("Address"))

       ZipCode=trim(request.form("ZipCode"))

       Telephone=trim(request.form("Telephone"))

       Fax=trim(request.form("Fax"))

       Mobile=trim(request.form("Mobile"))

       Email=trim(request.form("Email"))

       dim ErrMessage,ErrMsg(9),FindErr(9),i

       ErrMsg(0)="·The product range must fill, the length cannot surpass characters"

       ErrMsg(1)="·The product nomber must fill, the length cannot surpass characters"

       ErrMsg(2)="·The order number must fills, the length cannot surpass characters."

       ErrMsg(3)="·The name must fill, the length cannot surpass characters"

       ErrMsg(4)="·The company name,address must fill,the length must be 8- characters"

       ErrMsg(5)="·The zipcode length must be 6- characters"

       ErrMsg(6)="·The phone number length must be 7- characters"

       ErrMsg(7)="·The fax,mobile number length cannot surpass characters"

       ErrMsg(8)="·The email address form is not correct"

       if len(ProductName)> or len(ProductName)=0 then

       FindErr(0)=true

       end if

       if len(ProductNo)> or len(ProductNo)=0 then

       FindErr(1)=true

       end if

       if len(Amount)> or len(Amount)=0 then

       FindErr(2)=true

       end if

       if len(RealName)> or len(RealName)=0 then

       FindErr(3)=true

       end if

       if len(Company)> or len(Address)> or len(Company)<4 or len(Address)<4 then

       FindErr(4)=true

       end if

       if len(ZipCode)> or len(ZipCode)<6 then

       FindErr(5)=true

       end if

       if len(Telephone)> or len(Telephone)<7 then

       FindErr(6)=true

       end if

       if len(Fax)> or len(Mobile)> then

       FindErr(7)=true

       end if

       if not IsValidEmail(Email) then

       FindErr(8)=true

       end if

       for i = 0 to UBound(FindErr)

       if FindErr(i)=true then

       ErrMessage=ErrMessage+ErrMsg(i)+"<br>"

       end if

       next

       if not (ErrMessage="" or isnull(ErrMessage)) then

       WriteMsg(ErrMessage)

       response.end

       end if

       set rs = server.createobject("adodb.recordset")

       sql="select * from Ameav_Order"

       rs.open sql,conn,1,3

       rs.addnew

       rs("Start_Date")=StartDate

       rs("ProductName")=StrReplace(ProductName)

       rs("ProductNo")=StrReplace(ProductNo)

       rs("Amount")=StrReplace(Amount)

       rs("Remark")=StrReplace(Remark)

       rs("MemID")=MemID

       rs("Linkman")=StrReplace(RealName)

       rs("Sex")=Sex

       rs("Company")=StrReplace(Company)

       rs("Address")=StrReplace(Address)

       rs("ZipCode")=StrReplace(ZipCode)

       rs("Telephone")=StrReplace(Telephone)

       rs("Fax")=StrReplace(Fax)

       rs("Mobile")=StrReplace(Mobile)

       rs("Email")=Email

       rs("AddTime")=now()

       rs.update

       rs.close

       set rs=nothing

       WriteMsg("·Successful，View <a href='MemberOrder.asp'><font color='red'>[My Order]</font></a>。")

       %>

请问哈，那能找到个简单的存系整站ASP源代码，有基本的统源功能就可以，后台好操作，库存完整

       第一个：

       <tr>

       <td colspan="2" align="left" valign="top" class="c">留言内容:<p><%=rs("connet")%></td>

       </tr>

       <tr>

       <td colspan="2" align="left" valign="top" class="c" height="">

       ..............<a href="del.asp?码库码id=<%=rs("id")%>" style="text-decoration: none"><font color="#">删除</font></a>.................<a href="reg.asp" style="text-decoration: none"><font color="#">我要留言</font></a>.........</td>

       </tr>

       把上面的改成

       <tr>

       <td colspan="3" align="left" valign="top" class="c">留言内容:<p><%=rs("connet")%></td>

       </tr>

       <tr>

       <td colspan="3" align="left" valign="top" class="c" height="">

       ..............<a href="del.asp?id=<%=rs("id")%>" style="text-decoration: none"><font color="#">删除</font></a>.................<a href="reg.asp" style="text-decoration: none"><font color="#">我要留言</font></a>.........</td>

       </tr>

       第二个：

       <!--header begin-->

       <%

       response.write "<div id=mainbox>"&_

       "<table border=0 width=% cellpadding=4 style=border-collapse: collapse class='top_table'>"&_

       "<form name=form action=Product_ListSearch.asp method=get>"&_

       " <tr><td colspan=2 height=5></td></tr>"&_

       " <tr>"&_

       " <td><a href=index.asp title=返回首页><img src=uploadpic/></a></td>"&_

       " <td align=right>"&_

       " <table><tr><td class=cartimg></td><td><a href=Cart_List.asp>查看我的购物车</a>(<font color=#FF>"

       if session("y")="" then response.write "0" else response.write session("y")

       ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

       response.write "<td><a href=index.asp title=返回首页><object classid='clsid:DCDB6E-AE6D-cf-B8-' codebase='/pub/shockwave/cabs/flash/swflash.cab#version=6,0,,0' width='' height=''>"&_

       "<param name='movie' value='logo.swf'>"&_

       "<param name='quality' value='high'>"&_

       "<embed src='logo.swf' width='' height='' quality='high' type='application/x-shockwave-flash' width='' height=''></embed></object></a></td>"

       %>

       希望我的回答对你有所帮助。

下载的存系asp源码怎么使用？

       新手和初学者在下载ASP源码并尝试在自己的电脑上运行时，可能会遇到一些困惑。本文旨在为这些菜鸟级用户解答如何正确使用ASP源码。apringmvc源码通常，下载的源码会以压缩包的形式存在，解压后包含多种文件类型，这对于新手来说可能感到一头雾水。尽管有些说明提到只需将所有文件上传到网络空间，但这样的描述过于简略，对于新手来说并不够清晰。本文将详细讲解如何在本地下载和使用ASP源码，subprocess 源码同样的步骤也适用于PHP源码。

       一、在本地电脑上使用ASP源码：

       1. 首先，需要在本地电脑上安装IIS（Internet Information Services）。许多现代操作系统默认不包含IIS，因此可能需要下载并安装。

       2. 解压下载的源码，并将其复制到本地电脑的hslcommunication源码适当文件夹中，通常是C盘下的Inetpub/wwwroot目录。

       3. 通过浏览器访问：http://localhost/ 或 http://.0.0.1/ 来查看网站。

       4. 如果页面无法显示，请确认是否有默认文档如index.asp，如果有，先运行安装脚本。如果问题依旧，检查conn.asp文件中的countly 源码数据库连接参数是否正确。

       二、在本地电脑上使用PHP源码：

       1. 安装PHPnow环境，它集成了PHP和MySQL，可以通过迅雷搜索并下载。

       2. 将源码复制到PHPnow安装目录下的htdocs文件夹。

       3. 如果无法访问，检查是否需要导入数据库，可以通过phpMyAdmin进行操作。检查config.php文件中的数据库连接参数是否正确。

       4. 如果配置了虚拟主机，将源码复制到虚拟主机控制的文件夹，并通过相应的地址访问。

       三、将源码上传到网络空间：

       1. 确认空间提供商支持哪种源码类型，如ASP+Access或PHP+MySQL。

       2. 将源码上传到空间的服务器根目录或指定目录。

       3. 使用域名或特定路径访问网站。

       4. 如果包含SQL数据库，先导入数据库，并根据空间提供商提供的数据库信息更新连接参数。不含数据库的PHP源码通常含有安装脚本，可以运行install.php进行安装。

       5. 对于SQL数据库的导入，确认空间服务器是否允许远程访问，如果允许，使用SQL管理工具导入；如果不允许，通过空间提供商的用户控制面板进行导入。

       请尊重原创作者，转载时请注明出处：尖叫论坛。