大家帮我看看这段代码是做什么用的!
情绝书生 2004-04-09 02:19:22 <%
messa=request("messa")
set hprs=Server.CreateObject("ADODB.recordset")
hpsql = "select * From fp_homepage where user_id="&user_id
hprs.open hpsql,conn,1,1
if hprs.eof then
response.write "非法注册客户"
response.end
end if
homepage_logo=hprs("homepage_logo")
homepage_banner=hprs("homepage_banner")
homepage_name=hprs("homepage_name")
homepage_comment=hprs("homepage_comment")
/////////////以下的在数据库里根本就没有,不知怎么回事,请大家帮帮我!
getcat="mall_p_getcat"
Set rsCat =conn.execute(getcat,2,8) /////这句括号里是什么意思?
%>
<form method="POST" action="updatecat_homepage.asp" name="flag_Form1">
<SELECT NAME="catid" SIZE="10" MULTIPLE class="unnamed1">
<%
getwebcat="fp_p_getwebcat_user '"&user_id&"'" /////这句是什么意思?
Set rsSCat = conn.Execute(getwebcat,2,8)
Do While Not rsCat.EOF
selected = ""
if Not rsSCat.BOF then rsSCat.MoveFirst
Do While Not rsSCat.EOF
if CInt(rsSCat("catid").value) = CInt(rsCat("catid").value) then selected = " SELECTED"
rsSCat.MoveNext
Loop %>
<OPTION VALUE="<%= rsCat("catid").value %>" <%= selected %>><% = rsCat("parentname").value %>/<% = rsCat("catname").value %> </option>
<% rsCat.MoveNext
Loop
%>
</SELECT>