<!--#include file="conn/conn.asp" -->
<!--#include file="conn/function.asp" -->
<%
if C_first=1 then
response.Write("<script>alert('首次运行网站，请进行初始化设置！');window.location='install.asp';</script>")
response.end()
end if

if request.QueryString("type")="" then
U_type="index"
else
U_type=request.QueryString("type")
end if

if request.QueryString("S_id")="" then
S_id=1
else
S_id=request.QueryString("S_id")
end if

select case request.QueryString("type")
case "index"
Response.Write ReplaceLableFlag(ReplaceWapTag(CreateHTMLReplace(ReplaceWapPart(CreateIndex(LoadWapTemplate("index"))))))
case "contact"
Response.Write ReplaceLableFlag(ReplaceWapTag(CreateHTMLReplace(ReplaceWapPart(CreateContact(LoadWapTemplate("contact"))))))
case "guestbook"
Response.Write ReplaceLableFlag(ReplaceWapTag(CreateHTMLReplace(ReplaceWapPart(CreateGuestbook(LoadWapTemplate("guestbook"))))))
case "text"
Response.Write ReplaceLableFlag(ReplaceWapTag(CreateHTMLReplace(ReplaceWapPart(CreateText(LoadWapTemplate("text"),request.QueryString("S_id"))))))
case "form"
Response.Write ReplaceLableFlag(ReplaceWapTag(CreateHTMLReplace(ReplaceWapPart(CreateForm(LoadWapTemplate("form"),request.QueryString("S_id"))))))
case "news"
Response.Write ReplaceLableFlag(ReplaceWapTag(CreateHTMLReplace(ReplaceWapPart(CreateNewsList(LoadWapTemplate("news"),request.QueryString("S_id"))))))
case "newsinfo"
Response.Write ReplaceLableFlag(ReplaceWapTag(CreateHTMLReplace(ReplaceWapPart(CreateNewsInfo(LoadWapTemplate("newsinfo"),request.QueryString("S_id"))))))
case "product"
Response.Write ReplaceLableFlag(ReplaceWapTag(CreateHTMLReplace(ReplaceWapPart(CreateProductList(LoadWapTemplate("product"),request.QueryString("S_id"))))))
case "productinfo"
Response.Write ReplaceLableFlag(ReplaceWapTag(CreateHTMLReplace(ReplaceWapPart(CreateProductInfo(LoadWapTemplate("productinfo"),request.QueryString("S_id"))))))
case else
Response.Write ReplaceLableFlag(ReplaceWapTag(CreateHTMLReplace(ReplaceWapPart(LoadWapTemplate("index")))))
end select
%>