% '获取大类和小类的ID If Trim(checkStr(Request("SmallClassID")))<>"" Then SmallClassID=Trim(checkStr(Request("SmallClassID"))) Else SmallClassID=0 End IF 'BigClassID=Trim(checkStr(Request("BigClassID"))) ' 获取连接文件地址 Set rs = Server.CreateObject("ADODB.recordset") rs.Open "Select * From [HV_SmallClass] Where SmallClassID=" & SmallClassID,Conn,1,1 BigClassID=rs("BigClassID") TemplateID=rs("TemplateID") rs.close Set rs = Server.CreateObject("ADODB.recordset") rs.Open "Select * From [HV_Template] Where TemplateID=" & TemplateID,Conn,1,1 TemplateLink=rs("TemplateLink") rs.close %>
| 点击进入>> |