RT。 asp压根不熟悉~ 有人帮忙吗?

解决方案 »

  1.   


    选择性无视3楼。 2楼麻烦您了。代码如下..
     <%
    If Request("proadd")=1 thenfunction HTMLEncode(fString)
    if not isnull(fString) then
        fString = replace(fString, ">", "&gt;")
        fString = replace(fString, "<", "&lt;")
    fString = replace(fString, """", "&quot;")
        fString = Replace(fString, CHR(32), "&nbsp;")
        fString = Replace(fString, CHR(9), "&nbsp;")
        fString = Replace(fString, CHR(34), "&quot;")
        fString = Replace(fString, CHR(39), "&#39;")
        fString = Replace(fString, CHR(13), "")
        fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
        fString = Replace(fString, CHR(10), "<BR> ")
        HTMLEncode = fString
    end if
    end function'------------------检查数据是否为空---------------------------
    xh=trim(Request("xh"))
    if xh="" then
       xh="F"
    else 
       xh=xh
    end if
    tj=trim(Request("tj"))
    if tj="" then
       tj="F"
    else 
       tj=tj
    end if'-----------------将内容写入数据库--------------------------------------Set rs=Server.CreateObject("ADODB.Recordset")
    sql="select * from products"
    rs.open sql,conns,1,3
    rs.addnew
    rs("model")=trim(Request("pkh"))
    rs("pro")=trim(Request("ppm"))
    rs("fabric")=trim(Request("pml"))
    rs("lining")=trim(Request("pll"))
    rs("pimg")=trim(Request("ad1"))
    rs("art")=trim(Request("pgy"))
    rs("xtid")=trim(Request("pclass"))
    rs("xsid")=trim(Request("pstyle"))
    rs("xh")=xh
    rs("tj")=tj
    rs("prgm")=trim(Request("pdbl"))
    rs("fob")=trim(Request("pfob"))
    rs.Update
    rs.Close
    Set rs=Nothing
    response.Redirect("products.asp")
    End if
        %>
      

  2.   


    不幽默,我寂寞。 求帮忙,坐等asp改aspx大神。
      

  3.   

    这就是一个向数据库存储的过程.NET按照自己的需求写就是了
      

  4.   

    直接把.asp改成.aspx不就行了吗。哈哈
      

  5.   

    点击选中 asp 文件,再按 “F2” 在文件名末尾加一个 ”x“  就好了
      

  6.   

    把asp的html控件都给成服务器控件
    就可以了 
      

  7.   


     if(int.Parse(Request.QueryString["proadd"]==1)
    {String xh =Request.QueryString["xh"].Trim();
    if(xh=="")
       xh="F"
    String tj=Request.QueryString["tj"].Trim();
    if(tj=="")
       tj="F"/*Set rs=Server.CreateObject("ADODB.Recordset")//数据库连接
    sql="select * from products"//查这个表数据
    rs.open sql,conns,1,3
    *///如他的SQL = update table set model=@model;
    string model= Request.QueryString["pkh"].trme();
    string sql = "update table set model="+model;
    //response.Redirect("products.asp")
       Response.Redirect("products.aspx");  
    }
            public string HTMLEncode(string fString)
            {
    if(fString==null || fString == "")
    { return fString;
    }
              // fString = replace(fString, ">", "&gt;")          
              fString = fString .Replace(">","&gt;");//字符串替换自己写完
              return fString;        }
    /*Set rs=Server.CreateObject("ADODB.Recordset")//数据库连接
    sql="select * from products"//查这个表数据
    rs.open sql,conns,1,3
    */
    /*rs("model")=trim(Request("pkh")) 付值
    rs("pro")=trim(Request("ppm"))
    rs("fabric")=trim(Request("pml"))
    rs("lining")=trim(Request("pll"))
    rs("pimg")=trim(Request("ad1"))
    rs("art")=trim(Request("pgy"))
    rs("xtid")=trim(Request("pclass"))
    rs("xsid")=trim(Request("pstyle"))
    rs("xh")=xh
    rs("tj")=tj
    rs("prgm")=trim(Request("pdbl"))
    rs("fob")=trim(Request("pfob"))
    rs.Update //更新数据
    rs.Close  //关闭数据
    Set rs=Nothing
    response.Redirect("products.asp")
    End if
    */大概就这样!
    你照着葫芦画瓢就行了!