_lib.asp

来自「java的一个网上商店的源码,后台是Access数据库.功能还可以.界面比较简单」· ASP 代码 · 共 31 行

<!-- #include virtual="/_config/config.asp" -->
<!-- #include virtual="/_lib/_lib.asp" -->
<!-- #include virtual="/admin/store/_lib/upload.asp" -->
<%
sub ListType(storeType,byref oConn)
  Dim typeListSQl,tempRS
   typeListSQl="select St_typeid,St_name from t_GoodsType where St_fid=0 order by St_sort desc"
  set tempRS=oConn.execute(typeListSQl)
	if not tempRS.eof then 
	  do while not tempRS.eof
		response.write "<option value='"&tempRS(0)&"'"
		if clng(storeType)=clng(tempRS(0)) then response.write "selected"
		response.write ">"&tempRS(1)&"</option>"
		tempRS.movenext
	   loop
	  tempRS.close
	  set tempRS=nothing
	end if 
 end sub

 Function uploadPath(storeType)
  Select Case storetype
    Case 1  uploadPath="book"
	Case 2  uploadPath="magzine"
	Case 3  uploadPath="VCD"
	Case 4  uploadPath="DVD"
	Case 5  uploadPath="CD"
	Case 6  uploadPath="Soft"
  end Select
 End function 
 %>